Can't loop through worksheets

[VBAWannabee2]

Hi All!

I have this code but I can't work it out to loop thru worksheets.
What it does is per sheet in my workbook, it copies the values on Column B to Column C (Only the visible cells because the data on all sheets was subtotaled)
Hope my explanation is clear enough. Please see screenshot also. Thanks for any assistance!

Dim ws As Worksheet
Dim rng As Range

For Each ws In ActiveWorkbook.Worksheets

If ws.Visible = True Then

    For Each rng In Range(Cells.Find(What:="Total"), Range("B" & Rows.Count).End(xlUp)).SpecialCells(xlVisible).Areas
      rng.Offset(, 1).Value = rng.Value
    Next rng
    
End If
    
Next ws

 

[Fluff]

Glad we could help & thanks for the feedback.