View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Rowan[_8_] Rowan[_8_] is offline
external usenet poster
 
Posts: 55
Default worksheet looping with varying labels (aka Need to Find the John!)

Hi Jeff

you can loop through the worksheets collection like this:

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If Left(UCase(ws.Name), 4) = "JOHN" Then
'do sheet stuff
End If
Next ws


Hope this helps
Rowan

alphapoint05 wrote:
Here's the problem:

Suppose a macro creates a certain number of worksheets (which varies
from dataset to dataset). Further suppose that text labels (in the
tabs) are created by the macro for each worksheet (that also vary from
workbook to workbook).

Now, I want the macro to go through the worksheets and pick out the
ones that have particular text.

Example:

Macro creates 6 worksheets for this dataset:

John - 1
John-2
Mary -1
Mary-2
Fred
Debbie

I want to find the John's.

I envision a loop where it finds the first John (John - 1) and then
executes the appropriate actions on this worksheet. It then finds the
second John (John-2) and executes those same actions. I can do this,
but I can't get it to loop through the worksheets and pick these
particular worksheets.

Anyone have any ideas on how to find these John's

Jeff Miller