GetOpenFilename

[Steven]

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")
If FName <> False Then
Set WB = Workbooks.Open(FName)
Else
Exit Sub
End If

I thought if I hit the Cancel key it would take me to Exit Sub in this case
but that is not the case. How do I catch the Cancel key.

Thank you,

Jimmy

 

[Jon Peltier]

Try

If TypeName(FName) = "Boolean" Then Exit Sub

- Jon