Code to Loop through Each Worksheet in ThisWorkbook.Worksheets

I'm getting an "Application-defined or object-defined error" with the following line of code.

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