Macro Looping Problem

[spudgun44]

Help please, I am new to macro and VBA and have a problem,

I neen a macro to run when a worksheet tab is clicked, the macro
peforma a sort on the rest of the tabs the problem is that i need it
to end on that tab and to sort, so when that tab is selected at the
end of the macro the macro runs again and goes into a loop.

Is that a way to run the macro once and stop it?

Thanks

 

[Charles Chickering]

Please post the code you have so far.

 

[XP]

Here is one way:

Right click on the sheet tab of the sheet that should sort the sheets.
Select "View Code" and paste in the following two functions:

Private Sub Worksheet_Activate()
Call SheetSortDOSLogic
End Sub

Public Function SheetSortDOSLogic()
Dim lngX As Integer
Dim lngY As Integer
Dim lngSheetCount As Long
lngSheetCount = ActiveWorkbook.Sheets.Count
For lngX = 1 To lngSheetCount
For lngY = lngX + 1 To lngSheetCount
If Sheets(lngX).Name > Sheets(lngY).Name Then
Sheets(lngY).Move Before:=Sheets(lngX)
End If
Next lngY
Next lngX
End Function

To make it run again, you must select a different tab and then reselect the
"sort" sheet tab.

HTH