VBA Code Problem (Excel 2010):Runtime error 424

Tried to copy a worksheet and assign a variable to this copy at the same time as follows,

Sub Macro1()
    Dim pSheet As Worksheet
    Set pSheet = Sheets("MySheet").Copy(After:=Sheets(Sheets.Count))
End Sub

but I got error message as follow,

Run-time error '424':
Object Required

Any help on this...