VBA Help!

[bluefeather8989]

If [U3] =9 then
call Onehunderd

ElseIf [U3] = 0 then
Msg box ("Do you wish to print out a Name list before continuing?") vbYesNo
if YES then print sheet "print" then call Onehundred

if NO then call Onehundred

How would i write this?

 

[VoG]

Try

If [B2] = 9 Then
    Call Onehunderd
ElseIf [B2] = 0 Then
    If MsgBox("Do you wish to print out a Name list before continuing?", vbYesNo + vbQuestion) = vbYes Then ActiveSheet.PrintOut
    Call Onehundred
End If

 

[bluefeather8989]

Try

If [B2] = 9 Then
    Call Onehunderd
ElseIf [B2] = 0 Then
    If MsgBox("Do you wish to print out a Name list before continuing?", vbYesNo + vbQuestion) = vbYes Then ActiveSheet.PrintOut
    Call Onehundred
End If

If yes then
Print Sheet called "Print"(the name of the sheet is called PRINT) and call onehunderd

IF NO
call honhundred
sheet is not the active sheet

 

[VoG]

If Range("U3").Value = 9 Then
    Call Onehunderd
ElseIf Range("U3").Value = 0 Then
    If MsgBox("Do you wish to print out a Name list before continuing?", vbYesNo + vbQuestion) = vbYes Then Sheets("Print").PrintOut
    Call Onehundred
End If

 

[bluefeather8989]

If Range("U3").Value = 9 Then
    Call Onehunderd
ElseIf Range("U3").Value = 0 Then
    If MsgBox("Do you wish to print out a Name list before continuing?", vbYesNo + vbQuestion) = vbYes Then Sheets("Print").PrintOut
    Call Onehundred
End If

ty this worksCheers