Cycling though all sheets in the workbook

  • Thread starter Thread starter James
  • Start date Start date
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
 
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
 
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...
 
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
 
Dim sht as Worksheet
For Each sht in Worksheets
If Len(sht.Name) = 2 Then
sht.Select ' Put your code here.
End if
Next
 
Back
Top