If Sheet Name, No Action
 

Is there an easier way to do this:
If (sh.Name) < "SH1 - Ryan" Then
If (sh.Name) < "SH1 - Jimmy" Then
If (sh.Name) < "SH1 - Tim" Then
If (sh.Name) < "SH1 - Todd" Then
If (sh.Name) < "SH1 - Frank" Then
If (sh.Name) < "SH1 - Susie" Then


Something like this:
If (sh.Name) < "SH1 - *" Then

(but this does not work€¦)

Regards,
Ryan---

--
RyGuy

If Sheet Name, No Action
 

You could use a select case statement something like this...

select case sh.name
case "SH1 - Ryan", "SH1 - Jimmy", "SH1 - Tim", "SH1 - Todd", _
"SH1 - Frank", "SH1 - Susie"
case else
'Now do yoru stuff
end select

--
HTH...

Jim Thomlinson


"ryguy7272" wrote:

Is there an easier way to do this:
If (sh.Name) < "SH1 - Ryan" Then
If (sh.Name) < "SH1 - Jimmy" Then
If (sh.Name) < "SH1 - Tim" Then
If (sh.Name) < "SH1 - Todd" Then
If (sh.Name) < "SH1 - Frank" Then
If (sh.Name) < "SH1 - Susie" Then


Something like this:
If (sh.Name) < "SH1 - *" Then

(but this does not work€¦)

Regards,
Ryan---

--
RyGuy

If Sheet Name, No Action
 

Ryan

Try the Like operator; maybe something like:

Sub test3()

For Each sh In Sheets

If sh.Name Like "Sh*" Then MsgBox sh.Name

Next sh

End Sub


Good luck.

Ken
Norfolk, Va


On Jun 12, 3:49*pm, ryguy7272
wrote:
Is there an easier way to do this:
If (sh.Name) < "SH1 - Ryan" Then
If (sh.Name) < "SH1 - Jimmy" Then
If (sh.Name) < "SH1 - Tim" Then
If (sh.Name) < "SH1 - Todd" Then
If (sh.Name) < "SH1 - Frank" Then
If (sh.Name) < "SH1 - Susie" Then

Something like this:
If (sh.Name) < "SH1 - *" Then

(but this does not work…)

Regards,
Ryan---

--
RyGuy

If Sheet Name, No Action
 

Thanks a ton! Works great!!
Regards,
Ryan---

--
RyGuy


"Ken" wrote:

Ryan

Try the Like operator; maybe something like:

Sub test3()

For Each sh In Sheets

If sh.Name Like "Sh*" Then MsgBox sh.Name

Next sh

End Sub


Good luck.

Ken
Norfolk, Va


On Jun 12, 3:49 pm, ryguy7272
wrote:
Is there an easier way to do this:
If (sh.Name) < "SH1 - Ryan" Then
If (sh.Name) < "SH1 - Jimmy" Then
If (sh.Name) < "SH1 - Tim" Then
If (sh.Name) < "SH1 - Todd" Then
If (sh.Name) < "SH1 - Frank" Then
If (sh.Name) < "SH1 - Susie" Then

Something like this:
If (sh.Name) < "SH1 - *" Then

(but this does not work€¦)

Regards,
Ryan---

--
RyGuy