Worksheet page addresses with VBA

[Worf]

Worf submitted a new Excel article:

Worksheet page addresses with VBA - This code lists all page addresses on a given worksheet.

Sometimes we need to know the addresses of all the pages that make up a worksheet. The code below lists them and offers an option to colour each page differently.

View attachment 2359

Sub Main2()
PageAddress2 True
End Sub

Sub PageAddress2(colorcode As Boolean)
Dim c%, v%, h%, cln%, rw%, hgth%, wth%, i%, ws As Worksheet
Set ws = ActiveSheet
c = 1: s = ""
ActiveWindow.View = xlPageBreakPreview
ws.PageSetup.PrintArea = ""
ws.PageSetup.PrintArea = ws.UsedRange.Address...

Read more about this Excel article...