name prefix for DA
 

And yet one more possibility...

Sub Test()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
If wks.Visible And InStr(1, "*IS-*BS-*CV-*CAS*EXE*", _
"*" & Left(wks.Name, 3) & "*", vbTextCompare) 0 Then
'
' Your code goes here
'
End If
Next
End Sub

Rick


"Dean" wrote in message
...
I have an if, then loop that has a condition that, if a sheet in the
workbook is visible, then do some things. It uses a "wks", such as if
wks.visible = true, then

wks.protect. If not, then move along to the next wks, and that sort of
thing.

I want to add another condition beyond it being visible Specifically, if
the worksheet's name's first 3 characters are NOT one of the following
five choices, then I also want to skip the operations.

IS-
BS-
CV-
CAS
EXE

Can someone tell me that syntax, please?

Thanks!
Dean