Run Script to all available worksheets

[Jacra]

Hi Again,

good day.

Sorry for being a noob. I am having a hard time making this script run in all worksheets of a workbook. can you please help me with this. thank you n advance.

code:

Sub Autpen()

Range("A20").Value = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)

End Sub


I think I'm missing something here. the intent is to auto run the script upon opening of workbook. it will display the number of printable pages on cell A20 on every worksheet

Thanks again

 

[VoG]

Try

Sub Auto_Open()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    ws.Range("A20").Value = (ws.HPageBreaks.Count + 1) * (ws.VPageBreaks.Count + 1)
Next ws
End Sub