Hello All,
I have a table in each worksheet in a file. Each worksheet has a dynamic table range. I want to copy a value adjacent to the beginning of the table (not included in coding) and auto fill that value down to the bottom of each table (coding below). For some reason my coding works for individual worksheets but not across all worksheets. Please advise.
Column B Column C EA1.1 Step 1 Step 2 Step 3 Step 4 Step 5
Sub Test2()
Application.EnableEvents = False 'turn events off!
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "By_ProcessID" Then
ws.Range("B33").Select
Selection.AutoFill Destination:=ws.Range("B33:B" & Range("B1000000").End(xlUp).Row), Type:=xlFillCopy
End If
Next ws
Application.EnableEvents = True 'turn events back on - this is critical, otherwise no events will fire again
End Sub
Bookmarks