Why does this no longer work? (pasting issue!)

[Pasty]

This is a small segment of code that I have that used to work:

ActiveWorkbook.Worksheets("Sheet1").Select
ActiveSheet.Name = "Total Actions at " & Day(MyDate) & " " & MonthName(MyMonth) & " " & Year(Date)
ActiveSheet.Range("B2").Select
ActiveSheet.Paste

Now it keeps tripping up on the ActiveSheet.Paste bit at the bottom - would anyone know why this is the case?

 

[Lewiy]

Try:

ActiveSheet.PasteSpecial

 

[Pasty]

Yep that solved it - thanks for your help.

 

[Pasty]

Yep that solved it - thanks for your help.