Error In VBA Excel

Question

Hello
It gives an error when executing the following commands except for the last sheet. where is the problem from?

   Dim SheetNum, ProjectNum As Integer
    For SheetNum = Sheets.Count To 1 Step -1
      With Sheets(SheetNum)
        Co = WorksheetFunction.Match(ProjectNum,.Rows(1))
        .Activate
        .Range(Columns(Co - 3), Columns(Co)).Delete
      End With
    Next Sh

Answer 1

where is the problem from?

The question is more, which detailed error message do you get, in whcih line and what is "WorksheetFunction.Match(ProjectNum,.Rows(1))"

You have to provide more details.