I tried to search this out on the site but couldn't seem to find an iteration that I could make enough sense out of for my use.

I have the following code and what I'd like to do is have this same code performed on 28 other worksheets in the same workbook. I'm sure I could copy and repeat the same code 28 more times, but I've got to imagine there is some way to get a macro to tab through each sheet and perform the macro.

The other sheets are named "Network 1" through "Network 28"


Sub Autonumber()

Dim LastRow As Long
LastRow = Range("J65536").End(xlUp).Row
    

Sheets("Master Disruption").Select
Range("A2").Formula = "=if(J2>0,row(A1),"""")"
Range("A2").AutoFill Destination:=Range("A2:A" & LastRow), Type:=xlFillDefault
ActiveSheet.Range("A2", ActiveSheet.Range("A2").End(xlDown)).Copy
ActiveSheet.Range("A2", ActiveSheet.Range("A2").End(xlDown)).PasteSpecial (xlPasteValues)


End Sub
Thanks in advance!