I'm using Excel 2003.

I've searched this site and have found sorting tips for worksheet tabs
(mainly Chip Pearson's VBA code).

However, this ONLY seems to work by assuming the named tabs are ALPHA. What
if all 100 of my tabs are numbers???

EXAMPLE:

If I have the following tabs labeled: 1, 12, 21, 2000, 350, 3100, 55, 520,
1120, 2500

...then after running the code I will get the following INCORRECT result:

1, 1120, 12, 2000, 21, 2500, 3100, 350, 520, 55

Is there a way around this? How do I do a NUMERIC sort??

Thanks for any and all help.


--
Craig

Graig,

Try this

Sub Sortem()
LastSheet = Sheets.Count
On Error Resume Next
For ws = 1 To LastSheet
For ws2 = ws To LastSheet
If CLng(Sheets(ws2).Name) < CLng(Sheets(ws).Name) Then
Sheets(ws2).Move Befo=Sheets(ws)
End If
Next ws2
Next ws
End Sub


Mike

"Craig" wrote:

I'm using Excel 2003.

I've searched this site and have found sorting tips for worksheet tabs
(mainly Chip Pearson's VBA code).

However, this ONLY seems to work by assuming the named tabs are ALPHA. What
if all 100 of my tabs are numbers???

EXAMPLE:

If I have the following tabs labeled: 1, 12, 21, 2000, 350, 3100, 55, 520,
1120, 2500

..then after running the code I will get the following INCORRECT result:

1, 1120, 12, 2000, 21, 2500, 3100, 350, 520, 55

Is there a way around this? How do I do a NUMERIC sort??

Thanks for any and all help.


--
Craig

BRILLIANT!!! Worked great! Thanks.

--
Craig


"Mike H" wrote:

Graig,

Try this

Sub Sortem()
LastSheet = Sheets.Count
On Error Resume Next
For ws = 1 To LastSheet
For ws2 = ws To LastSheet
If CLng(Sheets(ws2).Name) < CLng(Sheets(ws).Name) Then
Sheets(ws2).Move Befo=Sheets(ws)
End If
Next ws2
Next ws
End Sub


Mike

"Craig" wrote:

I'm using Excel 2003.

I've searched this site and have found sorting tips for worksheet tabs
(mainly Chip Pearson's VBA code).

However, this ONLY seems to work by assuming the named tabs are ALPHA. What
if all 100 of my tabs are numbers???

EXAMPLE:

If I have the following tabs labeled: 1, 12, 21, 2000, 350, 3100, 55, 520,
1120, 2500

..then after running the code I will get the following INCORRECT result:

1, 1120, 12, 2000, 21, 2500, 3100, 350, 520, 55

Is there a way around this? How do I do a NUMERIC sort??

Thanks for any and all help.


--
Craig

Glad I could help

"Craig" wrote:

BRILLIANT!!! Worked great! Thanks.

--
Craig


"Mike H" wrote:

Graig,

Try this

Sub Sortem()
LastSheet = Sheets.Count
On Error Resume Next
For ws = 1 To LastSheet
For ws2 = ws To LastSheet
If CLng(Sheets(ws2).Name) < CLng(Sheets(ws).Name) Then
Sheets(ws2).Move Befo=Sheets(ws)
End If
Next ws2
Next ws
End Sub


Mike

"Craig" wrote:

I'm using Excel 2003.

I've searched this site and have found sorting tips for worksheet tabs
(mainly Chip Pearson's VBA code).

However, this ONLY seems to work by assuming the named tabs are ALPHA. What
if all 100 of my tabs are numbers???

EXAMPLE:

If I have the following tabs labeled: 1, 12, 21, 2000, 350, 3100, 55, 520,
1120, 2500

..then after running the code I will get the following INCORRECT result:

1, 1120, 12, 2000, 21, 2500, 3100, 350, 520, 55

Is there a way around this? How do I do a NUMERIC sort??

Thanks for any and all help.


--
Craig

See also
http://www.contextures.com/xlToolbar01.html

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Craig" wrote in message ...
BRILLIANT!!! Worked great! Thanks.

--
Craig


"Mike H" wrote:

Graig,

Try this

Sub Sortem()
LastSheet = Sheets.Count
On Error Resume Next
For ws = 1 To LastSheet
For ws2 = ws To LastSheet
If CLng(Sheets(ws2).Name) < CLng(Sheets(ws).Name) Then
Sheets(ws2).Move Befo=Sheets(ws)
End If
Next ws2
Next ws
End Sub


Mike

"Craig" wrote:

I'm using Excel 2003.

I've searched this site and have found sorting tips for worksheet tabs
(mainly Chip Pearson's VBA code).

However, this ONLY seems to work by assuming the named tabs are ALPHA. What
if all 100 of my tabs are numbers???

EXAMPLE:

If I have the following tabs labeled: 1, 12, 21, 2000, 350, 3100, 55, 520,
1120, 2500

..then after running the code I will get the following INCORRECT result:

1, 1120, 12, 2000, 21, 2500, 3100, 350, 520, 55

Is there a way around this? How do I do a NUMERIC sort??

Thanks for any and all help.


--
Craig

Great...thanks Ron for the tip.

--
Craig


"Ron de Bruin" wrote:

See also
http://www.contextures.com/xlToolbar01.html

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Craig" wrote in message ...
BRILLIANT!!! Worked great! Thanks.

--
Craig


"Mike H" wrote:

Graig,

Try this

Sub Sortem()
LastSheet = Sheets.Count
On Error Resume Next
For ws = 1 To LastSheet
For ws2 = ws To LastSheet
If CLng(Sheets(ws2).Name) < CLng(Sheets(ws).Name) Then
Sheets(ws2).Move Befo=Sheets(ws)
End If
Next ws2
Next ws
End Sub


Mike

"Craig" wrote:

I'm using Excel 2003.

I've searched this site and have found sorting tips for worksheet tabs
(mainly Chip Pearson's VBA code).

However, this ONLY seems to work by assuming the named tabs are ALPHA. What
if all 100 of my tabs are numbers???

EXAMPLE:

If I have the following tabs labeled: 1, 12, 21, 2000, 350, 3100, 55, 520,
1120, 2500

..then after running the code I will get the following INCORRECT result:

1, 1120, 12, 2000, 21, 2500, 3100, 350, 520, 55

Is there a way around this? How do I do a NUMERIC sort??

Thanks for any and all help.


--
Craig

I've updated the code on the web page to allow for sorting numeric
sheet names in numeric or text order.

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)

On Tue, 21 Apr 2009 11:12:09 -0700, Craig
wrote:

I'm using Excel 2003.

I've searched this site and have found sorting tips for worksheet tabs
(mainly Chip Pearson's VBA code).

However, this ONLY seems to work by assuming the named tabs are ALPHA. What
if all 100 of my tabs are numbers???

EXAMPLE:

If I have the following tabs labeled: 1, 12, 21, 2000, 350, 3100, 55, 520,
1120, 2500

..then after running the code I will get the following INCORRECT result:

1, 1120, 12, 2000, 21, 2500, 3100, 350, 520, 55

Is there a way around this? How do I do a NUMERIC sort??

Thanks for any and all help.