Iterating through Worksheets in a Workbook

ontheDB · #1 (**permalink**) 01-23-04, 16:45

Hi,

How would you iterate through the worksheets ?

something like

For each sheet in xlsWK
xlswk.sheet.pagesetup.zoom = 50
next sheet

Smitty · #2 (**permalink**) 01-25-04, 13:51

Something like this:

Code:

Sub Zoom()
    Dim ws As Worksheet
        For Each ws In ActiveWorkbook.Worksheets
            ws.Activate
            ActiveWindow.Zoom = 50
        Next ws
End Sub

Hope that helps,

Smitty

Internet Services

Web Development

Digital Marketing

Consumer Tech