RyanH
12/17/2009 7:49:00 PM
Do you see a "YES" button next to Was this post helpful to you?
Someone told me that they don't see it so they can't give credit to those
that help with code. I saw your reply about "Thanks" but not check mark by
our names. I'm just curious.
--
Cheers,
Ryan
"Bob A" wrote:
> wow, thank you VERY much for your great help!
> --
> Bob A
>
>
> "Mike H" wrote:
>
> > Hi,
> >
> > There are several ways, this loops through an array of named sheets
> >
> > Sub Sonic()
> > Dim V As Variant
> > Dim S As String
> > Dim sh As Worksheet
> > S = "Sheet1,Sheet2,Sheet3"
> > V = Split(S, ",")
> > For Each sh In ThisWorkbook.Worksheets
> > If Not IsError(Application.Match(CStr(sh.Name), V, 0)) Then
> > 'do things
> > MsgBox sh.Name
> > End If
> > Next sh
> > End Sub
> >
> >
> > Mike
> >
> > "Bob A" wrote:
> >
> > > I need to write code that automatically moves from sheet to sheet and gathers
> > > data. I have no problem gathering the data on the sheet but I don't know how
> > > to move the pointer to the next sheet in the workbook.
> > > I would really appreciate any help you can give.
> > > --
> > > Bob A