Here is the code
Sub display_message()
Dim flpath As String
flpath = Application.GetOpenFilename("Excel File (*.xls*)," & "*xls*")
If flpath = False Then
MsgBox "You haven't selected any file", vbOKOnly
End If
End Sub
Friday, December 23, 2011
Display message file not selected when you click on Cancel button on file browser
If you want to display any message to the user when he clicks on "Cancel" button while selecting the file
Here is the code
Sub display_message()
Dim flpath As String
flpath = Application.GetOpenFilename("Excel File (*.xls*)," & "*xls*")
If flpath = False Then
MsgBox "You haven't selected any file", vbOKOnly
End If
End Sub
Here is the code
Sub display_message()
Dim flpath As String
flpath = Application.GetOpenFilename("Excel File (*.xls*)," & "*xls*")
If flpath = False Then
MsgBox "You haven't selected any file", vbOKOnly
End If
End Sub
Subscribe to:
Post Comments (Atom)
-
If you want to add a new menu on mouse right click "Workbook Navigation showing you the list of all open workbooks and worksheets in ea... -
Macro to Export Range in Json Format Option Explicit Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoex...
No comments:
Post a Comment