Problem with Msgbox Code
Hi Old Dog,
Try this slight adaptation of your code:
'==========
Sub aTester()
Dim Msg As Long
Msg = MsgBox(" There were no files found. ", _
vbRetryCancel, "Please Respond")
If Msg = 4 Then
'User pressed Retry: What to do code
End If
If Msg = 2 Then
MsgBox "You cancelled!"
Exit Sub
End If
End Sub
'<<==========
---
Regards,
Norman
"Old Dog" wrote in message
oups.com...
I have the following code in a project which is responding in a way I
don't understand. Any enlightenment would be appreciated as I am new at
this. When the Cancel button is clicked I get an error code.
Else
MsgBox " There were no files found. ", vbRetryCancel, "Please
Respond"
If Msg = 4 Then
' What to do code
End If
If Msg = 7 Then
Exit Sub
End If
Run-time error '380':
Could not set the List property. Invalid property value.
All I am trying to do is to give the user a opportunity to exit the
procedure.
|