I am a bit familiar with macros but I am struggling. I have a code that copy a template and rename based on a range in a sheet call master.
However, I want to update it such that when new names excluding empty cells are included in the range, automatically searches all the worksheets and the create a new template and rename based the cell value.
Below is the code
Sub ReName()
Dim c As Range
Set Sh = Sheets("Template")
Application.ScreenUpdating = False
With Sheets("Template")
For Each c In .[EN]
If c.Value <> "" Then
Sheets("Master").Cells.Copy
.Copy After:=Sheets(Sheets.Count)
On Error Resume Next
ActiveSheet.Name = c.Value
On Error GoTo 0
End If
Next c
End With
Application.ScreenUpdating = True
End Sub
Bookmarks