Can I use vba sheet name for this?

[dee101]

This code works if I use the sheet name, how can I use the vba sheet name, sheet5, for this

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "SheetToPrint" Then

'how can I use something like this
If ActiveSheet = sheet5 Then

Cancel = True
MsgBox "Use the button on the page to print"
End If
End Sub

 

[mikerickson]

Do you mean the .CodeName of the sheet?

 

[Norie]

Use Codename in place of Name.

Sheet5 will need to be within quotes.

 

[dee101]

ActiveSheet.CodeName = "Sheet5"

Thanks that did it