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
|