I have included a snippet. The line in question is throwing a
application or object defined error. Basically, the code should get th
last row in the worksheet and stuff a formula referenceing a cell i
that row in a different cell in another worksheet.


THNextRow = Worksheets("Total_hardware").Range("D65536").End(x lUp).Ro
+ 1

LinkText = "=" & "Total_hardware!" & THNextRow & ",3"

' the line below throws the error

Cells(1, 2).Formula = LinkTex

--
Message posted from http://www.ExcelForum.com