Hi all,
I seem to be having some difficulty gathering the return value for the vbMsgBoxHelpButton. I have put the help button into the msgbox code, but the msgbox argument doesn’t seem to return the correct number. Here is my code:
Public Sub Check() Dim i As Integer, pbr As Integer i = 0 For Each cell In Sheets("Salesrecord").Range("d12:ap12") If cell.Value = "Incomplete" Then i = i + 1 Next If i >= 0 Then pbr = MsgBox("You have " & i & " day(s) which have not been completed", vbOKOnly + vbMsgBoxHelpButton) If pbr = 16384 Then HelpClose.Show End Sub
I have tried to evaluate pbr as 16383, 16384, 16385, and as vbMsgBoxHelpButton but when I run to the cursor, pbr always seems to equal 1. Any ideas as to the error in my code or syntax?
Thanks,