Rename new worksheet

[Thehunk71]

I have searched the board and i can find almost what i am looking for but not quite.
I have a bit of code that creates a new worksheet.

Dim newsheet As Worksheet

Set wks = Worksheets.Add(after:=Worksheets(Worksheets.Count - 5))

With wks
End With

I need to name the new worksheet the value that is in cell a1 on a sheet called "customer data"

Thanks for you help!

 

[Rick Rothstein]

Any time after your Set statement, use this line of code to name the sheet...

wks.Name = Worksheets("customer data").Range("A1").Value

 

[Thehunk71]

Thank You Rick! Happy 4th!!!!!!!