Starting a procedure at sheet 3

Mar 9th, 2002, 07:21 PM

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 · Mar 9th, 2002, 07:25 PM

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

Mar 9th, 2002, 07:52 PM

Thanks for that Dave. Does the job

Cheers
Eugene

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 9th, 2002, 07:21 PM	#1
Guest Posts: n/a	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

Mar 9th, 2002, 07:25 PM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	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

Mar 9th, 2002, 07:52 PM	#3
Guest Posts: n/a	Thanks for that Dave. Does the job Cheers Eugene