Microsoft Office Forums - View Single Post - [Solved] Why Are Both Of These Macros Not Filling Col B On All Sheets ?

Johan Verkerk · 12-19-2023, 02:08 AM

Sub cpyDte()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
Dim c As Range
For Each c In WS.Range("A2:A350")
If c.Value = "private" Then
c.Offset(, 1) = "600"
c.Offset(, 2) = "0"
End If
Next c
Next WS
End Sub

Sub SortIt2()
Dim WS As Worksheet
For Each WS In Sheets
Dim c As Range
For Each c In WS.Range("A2:A350")
If c.Value = "private" Then
c.Offset(, 1) = "600"
c.Offset(, 2) = "0"
End If
Next c
Next WS
End Sub