This is the script I have to update a table. I'm getting a run tim
error in the highlighted line...please help

Sub UpdateTable()
Dim rng As Range, cell As Range, rng2 As Range
Dim xcol As Double, ycol As Double
Worksheets("WorkPage").Select
Range("Z5").Select
xcol = ActiveCell.Value
Range("AA5").Select
ycol = ActiveCell.Value
With Worksheets("WorkPage")
Set rng = .Range(.Cells(6, 26), .Cells(6, 26))
End With
For Each cell In rng
Worksheets("MinimumBoilingRipple").Range(cell.Offs et(-1, 0).Value
cell.Offset(-1, 1).Value).Value = cell.Offset(1, 0).ValueNext
End Su

--
Tre_coo
-----------------------------------------------------------------------
Tre_cool's Profile: http://www.excelforum.com/member.php...fo&userid=2641
View this thread: http://www.excelforum.com/showthread.php?threadid=46716