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 If
Next Sh
If Worksheets.Count = 2 Then
ActiveSheet.Name = [Sheet1!A2]
Else
Var = Application.Max(Tabl())
Var = Application.Match(Var, [Sheet1!A:A], 0) + 1
ActiveSheet.Name = Application.Index([Sheet1!A:A], Var, 1)
End If
End Sub
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De
la part de SAJID MEMON
Envoyé : dimanche 10 juillet 2011 18:53
À : Excel Group
Objet : $$Excel-Macros$$ Rename Sheet as datawise How?
Dears
I have enclosed a simple file with my problem plz help me in my project.
awaiting your positive responce
Sajid Memon
--
----------------------------------------------------------------------------
------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
