Try
If TypeName(FName) = "Boolean" Then Exit Sub
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. -
http://PeltierTech.com
_______
"Steven" wrote in message
...
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