I have an Excel vba program that works correctly in Excel
97, 2000 and 2002, but not in 2003.
A basic command of "Range("B1").select" followed
by "activesheet.paste" fails with the error...

Run-time error '1004':
Paste method of worksheet class failed

Here is the code that leads up to the error...

Sheets("Live").Select
Range("A65536").Select
Selection.End(xlUp).Select
Rows("2:" & ActiveCell.Row).Select
Selection.Sort Key1:=Range("A2"),
Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Header:=xlNo,
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A65536").Select
Selection.End(xlUp).Select
Last_Row_Number = ActiveCell.Row

Range("J2") = "=IF(OR(A2<A1,C2<C1),E2,E2+J1)"
Range("K2") = "=IF(AND(A2=A3,C2=C3),0,J2)"
Range("J2:K2").Copy
Range("J2:K" & Last_Row_Number).Select
ActiveSheet.Paste

Sheets("Live").Select
Columns("K:K").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<0",
Operator:=xlAnd

Columns("A:A").Select
Selection.Copy
Sheets("Live_byDay").Select
'the code fails here by not being able to select a cell
and then paste the contents of column A copied from
another sheet
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

The code works correctly in previous versions of Excel,
so I'm going to guess that it is a "bug". Does anyone
know whether this is the case? Or have a solution?
I have another Excel program where similar lines of code
creates the same error (but only in Excel 2003).

I have 2003, so I thought I would try a couple of simple
copy and pastes. I did two, one on the same sheet and a
second to another sheet and they both worked. I am not
working with yur data, etc., so I am not sure what is
happening, but worked ok in these sircumstances. Granted
they are very simple.

-----Original Message-----
I have an Excel vba program that works correctly in
Excel
97, 2000 and 2002, but not in 2003.
A basic command of "Range("B1").select" followed
by "activesheet.paste" fails with the error...

Run-time error '1004':
Paste method of worksheet class failed

Here is the code that leads up to the error...

Sheets("Live").Select
Range("A65536").Select
Selection.End(xlUp).Select
Rows("2:" & ActiveCell.Row).Select
Selection.Sort Key1:=Range("A2"),
Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Header:=xlNo,
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A65536").Select
Selection.End(xlUp).Select
Last_Row_Number = ActiveCell.Row

Range("J2") = "=IF(OR(A2<A1,C2<C1),E2,E2+J1)"
Range("K2") = "=IF(AND(A2=A3,C2=C3),0,J2)"
Range("J2:K2").Copy
Range("J2:K" & Last_Row_Number).Select
ActiveSheet.Paste

Sheets("Live").Select
Columns("K:K").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<0",
Operator:=xlAnd

Columns("A:A").Select
Selection.Copy
Sheets("Live_byDay").Select
'the code fails here by not being able to select a cell
and then paste the contents of column A copied from
another sheet
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

The code works correctly in previous versions of Excel,
so I'm going to guess that it is a "bug". Does anyone
know whether this is the case? Or have a solution?
I have another Excel program where similar lines of code
creates the same error (but only in Excel 2003).
.