Code:
Sub Copyrenameworksheet()
'Updateby MR
Dim ws As Worksheet
Set wh = Worksheets(ActiveSheet.Name)
ActiveSheet.Copy After:=Worksheets(Sheets.Count)
If wh.Range("C3").Value <> "" Then
ActiveSheet.Name = wh.Range("C3").Value
End If
wh.Activate
End Sub
Hi - I currently have this script. what i am trying to achieve is to copy the same sheet however I need it to change the tab name and loop to the next name in the drop down list. finally i would also want for the tab name to mirror the cell value in the drop down list.