If you are certain that Subject ID is found on every sheet....

Sub FormatSheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Cells.Find("Subject ID").EntireColumn.NumberFormat = "000000000000000"
Next ws
End Sub

HTH,
Bernie
MS Excel MVP


"fgwiii" wrote in message
...
Currently I am using a macro to format column E for a number sequence, but I
am receiving new sheets where the info that normally is in column E is in
another column.

Is it possible to modify this code to only format columns in which the
column header is labeled as "Subject ID"?

Columns("E:E").Select
Selection.NumberFormat = "000000000000000 "

End Sub
Sub FormatSheets()
For Each ws In Worksheets
ws.Rows(1).Font.ColorIndex = 2
ws.Columns("E:E").NumberFormat = "000000000000000"
Next ws
End Sub

Thanks

Fred