If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Worksheet page addresses with VBA

Thread starter Worf
Start date Dec 18, 2019

Overview Discussion

Worf

Well-known Member

Dec 18, 2019

Worf submitted a new Excel article:

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

VBA Code:
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

VBA Code:

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...