Vacuum Sealed formulated on Sunday :
Hi Garry

The code hangs on:

Set rngFoundCell = _
Sheets("RunSheet P1").Columns("Y").Find("", Cells(Rows.Count, "Y"),
xlValues, xlWhole, , xlNext).Select

Mouse over shows "rngFoundCell=Nothing"

Thx again.
Mick.

Yeah, not surprised! I forgot to remove '.Select' from the end of that
line. Sorry about that!

Here's the revision that should work without issue...

Sub Go_Runsheet2()
Dim rngFoundCell As Range
Application.ScreenUpdating = False
Set rngFoundCell = _
Sheets("RunSheet P1").Columns("Y").Find("", _
Cells(Rows.Count, "Y"), xlValues, xlWhole, , xlNext)
If Not rngFoundCell Is Nothing Then
With rngFoundCell
.Value = Sheets("Run Setup").Range("D2").Value
.Offset(0, 55).Value = Sheets("Run Setup").Range("A2").Value
.Offset(0, 1).Value = Sheets("Run Setup").Range("B2").Value
.Offset(0, 1).Value = Sheets("Run Setup").Range("F2").Value
.Range("AU30").Value = Sheets("Run Setup").Range("E2").Value
End With
End If
Application.ScreenUpdating = True
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc