Put the following code in the sheet module for the worksheet that
contains the cell with the validation:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" Then
Worksheets(Target.Value).Select
If Err.Number <> 0 Then
Worksheets.Add.Name = Target.Value
End If
End If
On Error GoTo 0
End Sub
can you change the code to do the same but instead of adding a new sheet, it
will duplicate an existing one, and the duplicated will have the name that
is in the cell with the validation.
i hope i´m clear
i want duplicate one sheet, with all the things, ... formats ....
Modify code like this:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" Then
Worksheets(Target.Value).Select
If Err.Number <> 0 Then
Sheet2.Select ' change to your name
Cells.Select
Selection.Copy
Worksheets.Add.Name = Target.Value
Selection.PasteSpecial Paste:=xlPasteAll
Range("A1").Select
End If
End If
On Error GoTo 0
End Sub