Hi,

I'm making a macro that always ends up with a error when executes the last line of code that I put bellow. Can anyone explain me why it ends up in a error in that line? The letters 'a' and 'b' are two variables that contains the numbers 25 and 28 respectively.


Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = InputBox("Name for the new sheet:", "Create new sheet")
NameNewSheet = Sheets(Sheets.Count).Name

...

Sheets("2012").Range(Cells(1, a), Cells(150, b)).Copy Destination:=Sheets(NameNewSheet).Range("A:A:D:D")