Hi!

Hoping this is an easy one. Trying to run the below code on all sheets minus the one called "DASHBOARD". However, it currently only runs on the active sheet (which is the DASHBOARD sheet usually). Can this sort of thing not be used to loop through sheets or am I missing something? I'm literally just pulling the sheet name into all the rows with data into column J of sheets not named "DASHBOARD", and then just minor editing so if there's a better way, I am all ears!

Sub jobID()


Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "DASHBOARD" Then


Range("I1").Select
Selection.Copy
Range("J1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Job ID"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=MID(CELL(""filename"",R[-1]C[-9]),FIND(""]"",CELL(""filename"",R[-1]C[-9]))+1,255)"
Range("J2").Select
Selection.Copy
Range("I2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("J:J").EntireColumn.AutoFit
Columns("J:J").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Goto Reference:="R1C1"


End If
Next ws


End Sub

TIA!