Looping accross all worksheets in a workbook

Thanks for the tip. I think I added the code tags correctly. I'm new to VBA, and this site.. I appreciate the help SO MUCH! Thanks!

I was just reading more past posts. I got an idea from a previous post.

I added one line to top of my code to select the worksheet.

ws.Select

Now my code looks like this and seems to be working:

Sub ProfileFormat6()

Application.ScreenUpdating = False
Dim rng As Range
Dim ws As Worksheet
    
    
    For Each ws In Worksheets
        
            ws.Select
            Set rng = Range("A1")
            rng.Activate
            
            Columns("E:E").Select
            ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
    
                Do While rng.Value <> ""
                    
                    rng.Activate
                    
                    ActiveCell.Offset(1, 0).Range("A1:D1").Select
                        With Selection.Interior
                            .ColorIndex = 15
                            .Pattern = xlSolid
                        End With
                    rng.Activate
                    ActiveCell.Offset(21, 0).Range("A1:D2").Select
                        With Selection.Interior
                            .ColorIndex = 15
                            .Pattern = xlSolid
                        End With
                    rng.Activate
                    ActiveCell.Offset(31, 0).Activate
                    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
                    
                    rng.Activate
                    Set rng = rng.Offset(31, 0)
                Loop
                
    Next ws

End Sub

This is my first day reading through this forum and I think I'm in love. Thanks!