Starting a procedure at sheet 3

[Guest]

How can I edit this code to ignore sheets 1 and 2 and always start at worksheet 3 ?

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If IsEmpty(ws.Range("B2")) Then _
ws.Range("B4:B36,G6:G29").ClearContents
Next ws

Eugene Robinson
Rhos on Sea

 

[Dave Hawley]

I am ssume you mean the sheets Index number when you say sheets 1 and 2, so this code should do it:

Dim i As Integer
For i = 3 To Sheets.Count
If IsEmpty(Sheets(i).Range("B2")) Then _
Sheets(i).Range("B4:B36,G6:G29").ClearContents
Next i

 

[Guest]

Thanks for that Dave. Does the job

Cheers
Eugene