Try this
![]()
Option Explicit Sub update_master() Dim i As Long, a as long a=6 For i = 1 To Worksheets.Count With Worksheets(i) If .Name <> "Sheet2" and .name <> "Rick Perry" and .name <> "Rick James Then Worksheets("Sheet2").Range("B" & a).value = .Range("C3").Value a=a+1 End With Next i End Sub
Bookmarks