Im stuck trying to get a range created from the sheet names.
Each time the sheet is copied, and the name is applied from the value of the cell.... Im trying to get it to copy the name of the sheet to Cell A40, on sheet Template. and then as more sheets get created, to keep filling in the sheet names in the first empy cell below A40 on sheet template..
LR = Sheets("template").Cells(Rows.Count,"A").End(xlup).Row + 1
x = ActiveSheet.Range("b2").Value
ActiveSheet.Name = x
Sheets("template").Range("A" & LR).Value = x