Cycling though all sheets in the workbook

J

James

Hi Guys

Could some one please advise the best way to cycle through
all the sheets in a workbook whose sheet name length is 2.
So any sheet name longer then 2 character should be ignored

XL2002, VBA

Thanks a lot in advance for your help
- James
 
F

Frank Kabel

Hi
try something like

sub foo()
dim wks as worksheet
for each wks in worksheets
if wks.name<>2 then
' do nothing
else
' your code
end if
next
end sub
 
T

Tom Ogilvy

for each sh in worksheets
if len(sh.Name) = 2 then
' work with the sheet
end if
Next
 
J

James

Thank you so much Frank
-----Original Message-----
Hi
try something like

sub foo()
dim wks as worksheet
for each wks in worksheets
if wks.name<>2 then
' do nothing
else
' your code
end if
next
end sub


--
Regards
Frank Kabel
Frankfurt, Germany

.
Click to expand...
 
F

Frank Kabel

Hi
make this
sub foo()
dim wks as worksheet
for each wks in worksheets
if len(wks.name)<>2 then
' do nothing
else
' your code
end if
next
end sub
 
B

Brad

Dim sht as Worksheet
For Each sht in Worksheets
If Len(sht.Name) = 2 Then
sht.Select ' Put your code here.
End if
Next
 
Top