move worksheet to end

[wilg]

Would like to know how to move the sheet if it turns red to the end of all my sheets. The name of my sheets are populated from a list on another worksheet




Private Sub Worksheet_Calculate()
If Range("as1") = "n" Then
Me.Tab.ColorIndex = 3 ' blue
Else
Me.Tab.ColorIndex = 5 ' red

End If
End Sub

[Simon Lloyd]

Try this:
If Range("as1") = "n" Then
Me.Tab.ColorIndex = 5 ' blue
Else
Me.Tab.ColorIndex = 3 ' red
Me.Move After:=Sheets(Sheets.Count)
End If