Sub OpenFile()
Dim myFileName As Variant
myFileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xls;*.xlsm*")
If myFileName <> False Then
Workbooks.Open (myFileName)
End If
End Sub
Sub OpenFile()
Dim myFileName As Variant
myFileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xls;*.xlsm*")
If myFileName <> False Then
Workbooks.Open (myFileName)
End If
End Sub