On 2 Jan, 20:49, Darlene wrote:
--
Darlene

Yes,

I found the following code----

Sub SortSheets()

Dim lCount As Long, lCounted As Long

Dim lShtLast As Long

Dim lReply As Long

lReply = MsgBox("To sort Worksheets ascending, select 'Yes'. " _

& "To sort Worksheets descending select 'No'", vbYesNoCancel, "Ozgrid
Sheet Sort")

If lReply = vbCancel Then Exit Sub

lShtLast = Sheets.Count

If lReply = vbYes Then 'Sort ascending

For lCount = 1 To lShtLast

For lCount2 = lCount To lShtLast

If UCase(Sheets(lCount2).Name) < UCase(Sheets
(lCount).Name) Then

Sheets(lCount2).Move Befo=Sheets(lCount)

End If

Next lCount2

Next lCount

Else 'Sort descending

For lCount = 1 To lShtLast

For lCount2 = lCount To lShtLast

If UCase(Sheets(lCount2).Name) UCase(Sheets
(lCount).Name) Then

Sheets(lCount2).Move Befo=Sheets(lCount)

End If

Next lCount2

Next lCount

End If

------------------------------------------------------

Anthony
http://www.excel-ant.co.uk