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