VBA kode/Function driller

Hej jeg bruger denne VBA-kode til at import Excel ark med dialogboks. Den første del fungerer rigtig godt sammen med den første Funktion. Men når jeg vil sætter anden Funktion ind. Kan Excel sagtens åbner en dialogboks, hvor jeg kan vælge den mappe Excel importere arkene fra. Men Excel importerer ikke arkene.
Jeg vil være taknemlig for al hjælp.
Jeg tillader mig at sende et link til Dropbox. https://www.dropbox.com/sh/n0buw8nnkweuaho/AACbjsOqGRBSXtVg9dTg3jBya?dl=0
Hilsen Klaus W
VBA-kode er.
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

Første Funktion er.
Public Function ShtExists(ShtName As String, Optional Wbk As Workbook) As Boolean
    If Wbk Is Nothing Then Set Wbk = ActiveWorkbook
    On Error Resume Next
    ShtExists = (LCase(Wbk.Sheets(ShtName).Name) = LCase(ShtName))
    On Error GoTo 0
End Function

Anden Funktion er
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
End Function