Hello,
Try :
Private Sub CommandButton1_Click()
Dim Tabl(), Sh As Worksheet, Ctr As Integer
ReDim Tabl(0)
Sheets.Add
Ctr = -1
For Each Sh In Worksheets
If IsNumeric(Sh.Name) Then
Ctr = Ctr + 1
ReDim Preserve Tabl(Ctr)
Tabl(Ctr) = CInt(Sh.Name)
End
Hi
Try
Sub test()
Dim i As Long
Dim ws As Worksheet
Dim LR As Long
LR = Range(A Rows.Count).End(xlUp).Row
For i = 2 To LR
Set ws = Worksheets.Add(After:=Sheets(Sheets.Count))
ws.Name = Sheets(sheet1).Cells(i, 1)
Next i
End Sub
On Sun, Jul 10, 2011 at 10:23 PM, SAJID MEMON
Try this..
Private Sub CommandButton1_Click()
Dim rng As Range
Dim cell As Range
Set rng = ActiveSheet.Range(A2:a6)
For Each cell In rng
Sheets.Add.Name = cell.Value
Next
End Sub
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of SAJID MEMON