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

--
HTH. Best wishes Harald
Followup to newsgroup only please

"Young-Hwan Choi" skrev i melding
...
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.

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

"Young-Hwan Choi" wrote in message
...
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
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
"Young-Hwan Choi" wrote in message ...
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.

Paul

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

regards,
choi