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.