Problem with duplicates

[paulsolar]

Hi All

I'm using the code below to create template copies, how can i adapt it to avoid duplicates please and only create unique worksheets.

Sub NewDays()


Dim i As Long, LastRow As Long, wksht As Worksheet


Sheets("Tides").Activate


LastRow = Cells(Rows.Count, 1).End(xlUp).Row


For i = 1 To LastRow
    Sheets("Template").Copy After:=Sheets(i)
    ActiveSheet.Name = Cells(i, 1).Text
Next i


End Sub

Cheers

Paul

 

[paulsolar]

Hi Fluff

that fixed it. As always i'm in you debt.

best of luck in the world cup, i think with a bit of luck we'll be seeing you in the semi final

cheers

Paul

 

[Fluff]

Glad to help & thanks for the feedback.

We're unlikely to meat until the final, so hopefully see you there.