Only to import the sheet with the name in Range Q1

[KlausW]

I use this code to import sheets with dialog box, it runs optimally, but I wish Excel only to import the sheets whit the name in Range Q1.

Any help will be much appreciated.
Many Thanks

Klaus W

Sub Rektangelafrundedehjørner1_Klik()

 Dim ws As Worksheet
   Dim Wbk As Workbook
   Dim Pth As String, Fname As String
      Pth = GetFolder()
      Fname = Dir(Pth & "\*.xlsm")
   
   Do While Fname <> ""
     Set Wbk = Workbooks.Open(Pth & "\" & Fname)
      For Each ws In Wbk.Worksheets
         If Not ShtExists(ws.Name, ThisWorkbook) Then
            ws.Copy , ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
         End If
      Next ws
      Wbk.Close False
      Fname = Dir
   Loop

End Sub

Function GetFolder() As String
Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
'dlg.InitialFileName = "c:\"
'If dlg.Show = -1 Then
'GetFolder = dlg.SelectedItems(1)
'End If
With dlg

    .InitialFileName = "c:\"
    .Show
    GetFolder = .SelectedItems(1)
   
End With

End Function

​

 

[KlausW]

Sorry to say, I can get it to work, get this error Pth = GetFolder() Sub or Function not defined.

 

[Fluff]

Do you still have the GetFolder function, or have you deleted it?

 

[KlausW]

Sorry to say, I can get it to work, get this error Pth = GetFolder() Sub or Function not defined.

Sorry to say, I can get it to work, get this error Pth = GetFolder() Sub or Function not defined.

It's works right now Thanks

 

[Fluff]

You're welcome & thanks for the feedback.