Hi

I'm trying to copy the active sheet via VBA and renaming it according to a
cell value found in a master data sheet. The sheet that is copied is to be
placed after the originalsheet (orgsh). I use the following code:

Set orgSh = ActiveSheet
Set newSh = ActiveSheet.Copy(After:=ActiveSheet)
newSh.Name = "Week" & " " & Sheets("Stamdata").Range("A4").Value

But I get an error referring to line 2.

Can you help?

Thank you

Ticotion