Sub InsertIDs() Dim ws As Worksheet Application.ScreenUpdating = False i = 2 For Each ws In Worksheets If ws.Name <> "Sheet1" Then ws.[C15].Value = Sheet1.Cells(i, 9).Value i = i + 1 End If Next ws Application.ScreenUpdating = True MsgBox "All done!", vbExclamation End Sub
DON'T MISS