Code to Loop through Each Worksheet in ThisWorkbook.Worksheets

That's not the code I posted, there's ) in the wrong place.

And there's an extra ) in what I posted.

CHEMICALS = Application.Match("CHEMICALS", ws.Columns(3), 0) + 1
COAL = Application.Match("COAL", ws.Columns(3), 0) + 1