sheets(count) code

[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.

 

[Harald Staff]

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

 

[Cecilkumara Fernando]

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

 

[Paul Robinson]

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]

Paul

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

regards,
choi