method 'open text' of object 'workbooks' failed

Hi
I am trying to run a macro that updates info from ms project to excel but the following error code comes up

run time error 1004
method 'open text' of object 'workbooks' failed

macro recorded as follows


'Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets(sname).Select
Range("B4").Select
ActiveSheet.Paste
Range("e4:e59,f4:f50").Select
Selection.HorizontalAlignment = xlCenter
Sheets("Pj Filter").Select
Sheets("Project1").Delete


Please how can I resolve this issue?

ActiveSheet.Paste

is highlighted