Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
activesheet.name ending in "-" &Style1
I'm trying to find all sheets that end in "-" & Style1
If ActiveSheet.Name Like "??-" & Style1 Then If ActiveSheet.Name Like "???-" & Style1 Then If ActiveSheet.Name Like "????-" & Style1 Then The sheetname could begin with 2 to 4 letters and always ends in - and Style1 (another series of characters) Style1 is 1-3 characters long. TIA Gerry |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
activesheet.name ending in "-" &Style1
On Oct 12, 3:49*pm, Wally wrote:
I'm trying to find all sheets that end in "-" & Style1 If ActiveSheet.Name Like "??-" & Style1 Then If ActiveSheet.Name Like "???-" & Style1 Then If ActiveSheet.Name Like "????-" & Style1 Then The sheetname could begin with 2 to 4 letters and always ends in - and Style1 (another series of characters) Style1 is 1-3 characters long. TIA Gerry Sub findsheet() For i = 1 To Sheets.Count If InStr(LCase(Sheets(i).Name), "style") Then MsgBox i Next i End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
activesheet.name ending in "-" &Style1
On Oct 12, 5:13*pm, Don Guillett Excel MVP
wrote: On Oct 12, 3:49*pm, Wally wrote: I'm trying to find all sheets that end in "-" & Style1 If ActiveSheet.Name Like "??-" & Style1 Then If ActiveSheet.Name Like "???-" & Style1 Then If ActiveSheet.Name Like "????-" & Style1 Then The sheetname could begin with 2 to 4 letters and always ends in - and Style1 (another series of characters) Style1 is 1-3 characters long. TIA Gerry Sub findsheet() For i = 1 To Sheets.Count *If InStr(LCase(Sheets(i).Name), "style") Then MsgBox i Next i End Sub Thanks Don That worked for most but I have one Style that is only N, so when I have it look for -N it also finds -NSH, -N72, etc. Can I have it find the pages ending in -N? Thanks Gerry |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel - How do I keep an ending space in a cell? i.e. "Mr. " | Excel Discussion (Misc queries) | |||
ActiveSheet.Shapes("Rectangle 23").Select will not work in 2007 | Excel Programming | |||
Change "With Worksheets" to "Activesheet" | Excel Programming | |||
How do I keep a 17 digit number from ending in "0" in excel? | Excel Discussion (Misc queries) | |||
What are the reasons for ""ActiveSheet.Paste Link:=True"" failure | Excel Programming |