Help!! Need to run macro on multiple worksheets...

[G_Olson]

I have multiple worksheets that I need to run the same macro on. I've tried several code examples I found online to do this, but none of them will work using my code (which works fine on individual worksheets). They work fine when running "as is", but won't cycle through the worksheets when I insert my code. The macro just keeps running on the first worksheet multiple times instead of stepping through them!?

Here's some simple code I tried that worked fine "as is"...


Public Sub BoldAllSheets()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
ws.Range("1:1").Font.Bold = True
Next ws

End Sub


When I replace ws.Range("1:1").Font.Bold = True with my code it will NOT cycle through the worksheets. Again, it just runs multiple times on the first worksheet. I can email files/code if needed. Any help would be much appreciated.

 

[VoG]

Try

Sub VoG()
Dim ws As Worksheet
Dim c As Range
Dim rng As Range
For Each ws In ThisWorkbook.Worksheets
    With ws
        For Each c In Intersect(.UsedRange, .Columns("f"))
            If c.Value = "," Then
                If rng Is Nothing Then Set rng = c.EntireRow
            Else
                Set rng = Union(rng, c.EntireRow)
            End If
        Next c
        'rng.Select  this won't work
        rng.Interior.ColorIndex = 3
    End With
Next ws
End Sub

 

[G_Olson]

VoG,

Thanks for your help on this. A mistake on my part...the stuff I said wasn't working in my last post does work...I just set my breakpoint at the wrong place. SO...back to where I started. My code works on a single worksheet...just not when i try to step through multiple worksheets.