sheets(count) code

  • Thread starter Thread starter Young-Hwan Choi
  • Start date Start date
Y

Young-Hwan Choi

Hello.

I have several sheets, named A, B, C, D, ...., 1,2,3,.....and so on in a
workbook.

I want to do job WWW in each sheet named 1,2,3,...(not A,B,C,...)
when I tried with
For kkk = 1 to 15
sheets(kkk).select
WWW
next kkk
it changes from sheet A. I understand sheets(kkk) means kkk-th sheet in a
workbook.

How do I specify a sheet named variable kkk ?
Say, I want to select sheets("1") at first, then sheets("2"), and so on...

thanks.
 
Hi

How about

Sub test()
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Worksheets
If IsNumeric(Ws.Name) Then
Ws.Select
MsgBox Ws.Name
End If
Next
End Sub
 
Choi,
try this
Sub addData()
For i = 1 To Worksheets.Count
Worksheets(i).Activate
If IsNumeric(ActiveSheet.Name) Then
Range("A1") = ActiveSheet.Name
End If
Next
End Sub

Cecil
 
Hi
Try sheets(""&kkk).activate

The & character forces kkk to be text. There is probably some VBA
function that converts numbers to text too.

regards
Paul
 
Paul

This is exactly what I want, simple and works great.
Appreciate your help

regards,
choi
 
Back
Top