Help accessing msgbox prompt via function

[Bruce]

Hi,

In my ProSheets macro I wish to call myMsgbox function and return the
response back to my Prosheets macro so it does an action if = Yes or another
action if = no.

I'm almost there but can't crack the last part.

Bruce

Sub ProSheets()
myMSG = "Do you want to protect worksheets?"
myMsgbox (myMSG)

'If Yes then do this
'Else if No then do that
End Sub

Function myMsgbox(myMessage As String)
msg = myMessage
Style = vbYesNo + vbCritical + vbDefaultButton2
Response = MsgBox(msg, Style)
If Response = vbYes Then
myMsgbox = "Yes"
Else
myMsgbox = "No"
End
End If
End Function

 

[Jacob Skaria]

Do you mean....

Sub ProSheets()
Dim myMsG As String
myMsG = "Do you want to protect worksheets?"
If myMsgbox(myMsG) = "Yes" Then
'do something
Else
'do something
End If
End Sub

Function myMsgbox(myMessage As String) As Variant
myMsgbox = "No"
msg = myMessage
Style = vbYesNo + vbCritical + vbDefaultButton2
Response = MsgBox(msg, Style)
If Response = vbYes Then myMsgbox = "Yes"
End Function

 

[Bruce]

aha - yes solves my problem. Thanks

Do you mean....

Sub ProSheets()
Dim myMsG As String
myMsG = "Do you want to protect worksheets?"
If myMsgbox(myMsG) = "Yes" Then
'do something
Else
'do something
End If
End Sub

Function myMsgbox(myMessage As String) As Variant
myMsgbox = "No"
msg = myMessage
Style = vbYesNo + vbCritical + vbDefaultButton2
Response = MsgBox(msg, Style)
If Response = vbYes Then myMsgbox = "Yes"
End Function