Option Explicit

Sub Macro1()
Dim i As Integer
i = 2

Do
Sheets("template").Select
Sheets("template").Copy Befo=Sheets(1)
Sheets("template (i)").Select
Sheets("template (i)").Name = Sheets("Account
Data").Range("A2").Value
i = i + 1
ActiveCell.Offset(1, 0).Activate
Loop Until IsEmpty(ActiveCell)

End Sub

I think this should do the trick. About the control x... don´t know..
lemme think about it.


--
ehntd
------------------------------------------------------------------------
ehntd's Profile: http://www.excelforum.com/member.php...o&userid=15865
View this thread: http://www.excelforum.com/showthread...hreadid=275569