Excel sheet copy rename VBA code

Sub copyrenameworksheet () 

Dim ws AS Worksheet 

Set wh = WorksheetS(ActiveSheet.Name) 

ActiveSheet.Copy after:Worksheets (Sheets.Count) 

If wh.Range ("a1") Value <> "" then

ActiveSheet. Name  = wh.Range ("A1").Value 

End if

wh.Activate 

End Sub