Need help with: runtime error '13'

[Guest]

i get a runtime error '13' type mismatch when i run my code. can someone help
me with this code. the code basically opens a file, take info from the file
then close the file. when i click debug part of my code highlighted
"if FName <> False Then"

Sub OpenFile()
Declaration.ExitForm
FName = Application.GetOpenFilename(filefilter:="DecProFile(*.XLS), *.XLS",
Title:="Open Declaration Pro File", MultiSelect:=True)
If FName <> False Then

Workbooks.Open (FName.Path & "\" & FName)
If ActiveWorkbook.Worksheets("sheet1").Range("A1").Value = "DecProFile" Then
'take info from file
Workbooks("Declaration
Pro.xls").Worksheets("Classification").Range("B5:B103").Value =
ActiveWorkbook.Worksheets("sheet1").Range("B5:B103").Value

ActiveWorkbook.Close
Calculate
Else
MsgBox prompt:="Invalid file", Title:="Invalid"
ActiveWorkbook.Close
End If
End If
End Sub

I appreciate your help
Thank you

 

[Guest]

ok... i tried this and it works with no problem

Sub OpenFile()
Declaration.ExitForm
Dim fname As String, bk As Workbook
fname = Application.GetOpenFilename()
If fname <> "False" Then
Set bk = Workbooks.Open(fname)
If ActiveWorkbook.Worksheets("sheet1").Range("A1").Value = "DecProFile" Then
'take info from file
Workbooks("Declaration
Pro.xls").Worksheets("Classification").Range("B5:B103").Value =
ActiveWorkbook.Worksheets("sheet1").Range("B5:B103").Value

ActiveWorkbook.Close
Calculate
Else
MsgBox prompt:="Invalid file", Title:="Invalid"
ActiveWorkbook.Close
Declaration.Show vbModeless
End If
Else
Declaration.Show vbModeless
Exit Sub
End If
End Sub