Open outside excel file type mismatch error

[drop05]

Hi i am getting a type mismatch error when trying to open the workbook at the set wbk line, not sure why i am getting this error

Dim FNames As Variant
Dim Cnt As Long
Dim Wbk As Workbook
Dim MstWbk As Workbook
Dim Ws As Worksheet

Set MstWbk = ThisWorkbook
   
FNames = Application.GetOpenFilename(FileFilter:="Excel files (*.xls*), *.xls*", MultiSelect:=True)
If Not IsArray(FNames) Then Exit Sub
Set Wbk = Workbooks.Open(FNames)
Wbk.Worksheets("Payment").Range("M6:BW6").Copy
Wbk.Close False

 

[DanteAmor]

If you're only going to open one file, then use this:

Sub testopen()
  Dim FNames As Variant
  Dim Cnt As Long
  Dim Wbk As Workbook
  Dim MstWbk As Workbook
  Dim Ws As Worksheet
  
  Set MstWbk = ThisWorkbook
     
  FNames = Application.GetOpenFilename(FileFilter:="Excel files (*.xls*), *.xls*", MultiSelect:=False)
  If FNames = False Then Exit Sub
  Set Wbk = Workbooks.Open(FNames)
  Wbk.Worksheets("Payment").Range("M6:BW6").Copy
  Wbk.Close False
  '
  '
End Sub

 

[drop05]

If you're only going to open one file, then use this:

Sub testopen()
  Dim FNames As Variant
  Dim Cnt As Long
  Dim Wbk As Workbook
  Dim MstWbk As Workbook
  Dim Ws As Worksheet
 
  Set MstWbk = ThisWorkbook
    
  FNames = Application.GetOpenFilename(FileFilter:="Excel files (*.xls*), *.xls*", MultiSelect:=False)
  If FNames = False Then Exit Sub
  Set Wbk = Workbooks.Open(FNames)
  Wbk.Worksheets("Payment").Range("M6:BW6").Copy
  Wbk.Close False
  '
  '
End Sub

If you're only going to open one file, then use this:

Sub testopen()
  Dim FNames As Variant
  Dim Cnt As Long
  Dim Wbk As Workbook
  Dim MstWbk As Workbook
  Dim Ws As Worksheet
 
  Set MstWbk = ThisWorkbook
    
  FNames = Application.GetOpenFilename(FileFilter:="Excel files (*.xls*), *.xls*", MultiSelect:=False)
  If FNames = False Then Exit Sub
  Set Wbk = Workbooks.Open(FNames)
  Wbk.Worksheets("Payment").Range("M6:BW6").Copy
  Wbk.Close False
  '
  '
End Sub

Hi thank you for this i am getting an error at the set WBk

 

[DanteAmor]

What does the error message say?

Could you describe exactly step by step what you do?

 

[drop05]

What does the error message say?

Could you describe exactly step by step what you do?

sorry disregard last comment i closed and opened it again and ran it and it was good not sure why that happened but looks like it is good now