Cycling through predefined worksheets

C

Craig M

Hi There,
I've done this before but I have no idea how?? Must be getting old!
anyways,
Lets say I have 10 worksheets and 5 of them are named
test1,test2,test3......
the other five have different names.
I would like to cycle through the five sheets with a "for next loop", hoping
I could join "test" & x.

for x = 1 to 5
vtest="test" & str(x)
vtest.range("A1").value= "Oh My God.. It worked"
next x
I seem to get messed up with the declaring part... I keep getting an error
everyway I try.
Thanks as usual for your help
Craig
 
R

Rob Bovey

Hi Craig,

Dim x As Long
Dim vTest As Worksheet
for x = 1 to 5
vtest=Worksheets("test" & Cstr(x))
vtest.range("A1").value= "Oh My God.. It worked"
next x

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *
 
C

Craig M

I couldn't get this code to work.
I added .... Set vtest=Worksheets("test" & Cstr(x))
All is fine now... Thanks Again!
 
R

Rob Bovey

Craig M said:
I couldn't get this code to work.
I added .... Set vtest=Worksheets("test" & Cstr(x))
All is fine now... Thanks Again!
Click to expand...

Hi Craig,

Yes, my mistake. That's what I get for air coding. <g> Glad you got it
worked out.

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *
 
Top