Code to Loop thru a Workbook

  • Thread starter Thread starter Leo
  • Start date Start date
L

Leo

We have a macro in which we want to loop through the
worksheets but don't know the number of worksheets. We
want to loop through and activate a worksheet if it meets
certain criteria, but don't know the code to do this. Are
we on the right track below? Can someone fill in the two
missing pieces of code in the parens below?


Sub WorksheetLoop ()

Dim WsCount as Double

WsCount = (How do we get this?)

For I = 1 to WsCount
If (How do we identify the worksheet name here in
VB?) = "AA" then
VB lines of code here
End If
Next I

End Sub
 
Leo

one way:

Sub test()
For Each ws In Worksheets
Debug.Print ws.Name
Next 'ws
End Sub

Regards

Trevor
 
Hi Leo

Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If sh.Name = "ddd" Then
'..................
End If
Next sh
 
WsCount = Worksheets.Count

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top