Stop Sheet Loop On Starting Sheet

zotee98 · Jan 9th 2007

how do i start this code on sheet tab "sht 12312" and stop this code on sheet tab "sht 12323." i would perfer not to use counters so that tabs may be deleted if unused inbetween 12312 and 123323.

Code

Dim w As Worksheet
    For Each w In ActiveWorkbook.Worksheets
        w.Activate
        gunshow
    Next w

thanks in advance.

Wigi · Jan 9th 2007

Re: Stop Code On Sheet Tab

Like this perhaps?

Code

Sub excludesheets()
    Dim w As Worksheet, blnDo As Boolean
    blnDo = False
    For Each w In ActiveWorkbook.Worksheets
        If w.Name = "sht 12312" Or w.Name = "sht 12323" Then blnDo = Not blnDo
        If blnDo Then
            w.Activate
            gunshow
        End If
    Next w
End Sub

Display More

**norie** · Jan 9th 2007

Re: Stop Code On Sheet Tab

Perhaps this.

Code

For I = Worksheets("sht 12312").Index To Worksheets("sht 12323").Index
    Set ws = Worksheets(I)
    Msgbox ws.Name
Next I

Stop Sheet Loop On Starting Sheet

Participate now!

Share