user cancels

[grt]

hi,
The following subroutine works great. Though I would like
to have a msgbox appear if the user cancels. Any suggestions?

Sub ImportSome()
Workbooks.OpenText FileName:=Application.GetOpenFilename, _
StartRow:=1, DataType:=xlDelimited,.......
End Sub

 

[JE McGimpsey]

hi,
The following subroutine works great. Though I would like
to have a msgbox appear if the user cancels. Any suggestions?

Sub ImportSome()
Workbooks.OpenText FileName:=Application.GetOpenFilename, _
StartRow:=1, DataType:=xlDelimited,.......
End Sub

One way:

Public Sub ImportSome()
Dim vFileName As Variant
vFileName = Application.GetOpenFilename
If vFileName = False Then
MsgBox "User cancelled"
Else
Workbooks.OpenText _
Filename:=vFileName, _
StartRow:=1, _
DataType:=xlDelimited
End If
End Sub