Sub DeliteAllPages()

    Dim i As Long
    
    For i = 3 To Range("C2").Value
    If Sh_Exist(Format(Worksheets("Macros").Cells(i, 6).Value)) Then
    Sheets(Format(Cells(i, 6).Value)).Select
    ActiveWindow.SelectedSheets.Delete
        End If
        
Next

    Sheets("Macros").Select
End Sub

Sub CreateAllPages()
Dim i As Long
    
    For i = 3 To Range("C2").Value
    
    Sheets("Template").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Worksheets("Macros").Cells(i, 6).Value

Next

    Sheets("Macros").Select
End Sub

Sub DeliteAllPages()
Dim i As Long
    
    For i = 3 To Range("C2").Value

    Sheets(Format(Cells(i, 6).Value)).Select
    ActiveWindow.SelectedSheets.Delete
Next
    Sheets("Macros").Select
End Sub

Function GetFolderPath(Optional ByVal Title As String = "Select folder", _
                       Optional ByVal InitialPath As String = "c:\") As String

    Dim PS As String: PS = Application.PathSeparator
    With Application.FileDialog(msoFileDialogFolderPicker)
        If Not Right$(InitialPath, 1) = PS Then InitialPath = InitialPath & PS
        .ButtonName = "???????": .Title = Title: .InitialFileName = InitialPath
        If .Show <> -1 Then Exit Function
        GetFolderPath = .SelectedItems(1)
        If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
    End With
End Function
 
Sub Path()
    Folder = GetFolderPath("Name", ThisWorkbook.Path)

    If Folder = "" Then Exit Sub
    Workbook.Open Folder & "\123.xlsx"       
End Sub

Sub Macro2()
    Workbooks.Open Filename:="D:\New folder\Book1.xlsx"
End Sub