Runtime error in common dialog

[Echo{tWe}]

Hello, I have this error, when I close a common dialog box in my app, it has a runtime error. Also happens when I click "cancel". This is because nothing is selected, anyone know how to fix this? Thanks.

[MartinLiss]

CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
    MsgBox "You closed the dialog or you pressed cancel!"
End If

[MartinLiss]

But better is probably

On Error GoTo ErrorRoutine
 
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
 
ErrorRoutine:
 
If Err = 32755 Then
    MsgBox "You closed the dialog or you pressed cancel!"
End If

[RobDog888]

To help you remember the error number more easily, use the constant -
cdlCancel (&H7FF3 Cancel was selected)

[MartinLiss]

To help you remember the error number more easily, use the constant -
cdlCancel (&H7FF3 Cancel was selected)

Good suggestion.