Run-time error after converting from Office 2003 to Office 2010

[tmStuder]

I have a fine that I have been using since 2007. Yesterday we converted to Office 2010 and now some macros are not working. I get the following error:
Run-time error '-2147417848 (8001010)':
Automation error
The object invoked has disconnected from its clients.

When I debug is breaks here (the red text is highlighted):
ws.rows("2:2").Copy
ws.rows("3:3").Insert shift:=xlDown
ws.rows("3:3").EntireRow.Hidden = False

I have searched and searched and can find nothing helpful. This code runs fine in both Excel 2003 and 2007 but blows up in 2010.

Please help I think I'm going crazy!

 

[Andrew Poulsom]

Welcome to MrExcel.

I think it would be a good idea to post the entire procedure.

 

[RoryA]

Do you have any controls on that sheet?

 

[tmStuder]

Public Sub DataRecordFind(ByRef rng As Range, batchNumber As Integer)
Dim wslog As Worksheet
Dim ws As Worksheet
Dim rngData As Range 'used to see if we have a good time field
Dim firstHit As String

Set wslog = Worksheets("Roasting Log")
Set ws = Worksheets("RoastingTime")

Set rng = Nothing

'need to find a record for this date and batch number
Set rngData = ws.Range("A:A").Find( _
what:=wslog.Range("RoastingDate"), lookat:=xlWhole)

If Not rngData Is Nothing Then

'used to determine when to stop searching
firstHit = rngData.Address

Do
'see if this record matches the batch number
If rngData.Range("B1") = batchNumber Then
'found the match for this date and batch number
Set rng = rngData
Exit Sub
End If

'search date column for next matching record
Set rngData = ws.Range("A:A").FindNext(rngData)

Loop While rngData.Address <> firstHit

End If

'couldn't find a record so create a record for this batch number
ws.rows("2:2").Copy
ws.rows("3:3").Insert Shift:=xlDown
ws.rows("3:3").EntireRow.Hidden = False

Set rng = ws.Cells(3, 1)

'roasting date
rng.Range("A1") = wslog.Range("RoastingDate")
'batch number
rng.Range("B1") = batchNumber
'formula for time between batches
' rng.Range("L1").Formula = "=I3-J4"

End Sub

 

[tmStuder]

No controls at all

 

[RoryA]

Does the code compile OK in 2010?

 

[tmStuder]

yes

 

[RoryA]

Curious. Does it make any difference if you use:

ws.rows("3:3").Insert Shift:=xlDown
ws.rows("3:3").EntireRow.Hidden = False
ws.rows("2:2").Copy ws.Range("A3")

 

[tmStuder]

It appears to, but why?

 

[RoryA]

Damned if I know - it was just a hunch. (I've never really trusted that implicit paste in the Copy then Insert routine)