i want to loop through some worksheets and the do a loop in each work sheet

[liam1289]

Worksheet code
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
MsgBox ws.Name
Next
End Sub

Then i have the looping code for working in each sheet but how to i add this to my code

 

[Scott R]

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
  With ws
     <ws-specific code>
  
  End With
End Sub

 

[liam1289]

that doesnt seem to work for me..i have 5 worksheets and i want to loop through each worksheet then move onto the next sheet, I have the code for looping in one sheet but it wont move on to the second sheet after

 

[brettdj]

Are you sure that the workbook you are running the code on is the same one hosting the code - as it stands the code runs on the active workbook

You could change

  For Each ws In ActiveWorkbook.Worksheets

to

  For Each ws In ThisWorkbook.Worksheets

to esnure it runs on the host workbook

The code below prints out the value of each cell to the immediate window from A1 to A10 (the inner loop) for each worksheet in the ActiveWorkbook (the outer loop)

Cheers

Dave

Sub test()
    Dim ws As Worksheet
    Dim rng1 As Range
    For Each ws In ActiveWorkbook.Worksheets
        MsgBox ws.Name
        For Each rng1 In ws.Range(ws.[a1], ws.[a10])
            Debug.Print rng1.Value
        Next
    Next
End Sub