Knap til copy mellem 2 excel filer

Godaften kære hjælpere

Jeg har fundet denne VBA kode til at flytte celler fra et ark til et anden.

Den har indtil fornylig virket men gør det ikke mere.

For fejl i rækken  .Filters.Add *.xlsx; *.xlsm;

Hvad gør jeg.

Resten af koden er her

Private Sub CommandButton1_Click()
    Dim wkbCrntWorkBook As Workbook
    Dim wkbSourceBook As Workbook
    Dim rngSourceRange As Range
    Dim rngDestination As Range
    Set wkbCrntWorkBook = ActiveWorkbook
    With Application.FileDialog(msoFileDialogOpen)
        .Filters.Clear
        .Filters.Add *.xlsx; *.xlsm;
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            Workbooks.Open .SelectedItems(1)
            Set wkbSourceBook = ActiveWorkbook
            Set rngSourceRange = Application.InputBox(prompt:="Select source range", Title:="Source Range", Default:="A1", Type:=8)
            wkbCrntWorkBook.Activate
            Set rngDestination = Application.InputBox(prompt:="Select destination cell", Title:="Select Destination", Default:="A1", Type:=8)
            rngSourceRange.Copy rngDestination
            rngDestination.CurrentRegion.EntireColumn.AutoFit
            wkbSourceBook.Close False
        End If
    End With
End Sub

På forhånd tak

Klaus W