• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

copy sheets based on drop down list in cell (+ rename based on cell)

Manuel998

Member
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.

upload_2018-8-10_10-22-23.png
 
there would not be a same name worksheet because the drop down list in C3 will have unique names. hope this makes sense?
 
Manuel998
No matter which Excel-version.
1) It needs to go to correct code-page
2) Select from [General] that other option
3) Select from 'right'-selector 'Change'...
 
Back
Top