View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Norman Jones Norman Jones is offline
external usenet poster
 
Posts: 5,302
Default 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.