Sub movenameactivesheet)
With ActiveSheet
.Name = "Don"
.Move After:=Sheets(Sheets.Count)
End With
End Sub
--
Don Guillett
SalesAid Software

"Marie Bayes" wrote in message
...
Hi
I have the following code (created by setting up a macro):
Sheets.Add
ActiveSheet.Select
ActiveSheet.Move After:=Sheets(4)
ActiveSheet.Select
ActiveSheet.Name = "Feb Daily"
But I would like the Activesheet.move to always move the selected tab to
the
'end' as when I run this macro I don't know how many worksheets I will
have.
Is there any code that will tell it to do that?
Thanks in advance.