why won't this work?

[theclaah]

This code keeps stopping at the line
HPress = PS105.Row

I have similiar code in another module and it works fine. What am I not seeing?

Sub Velocity()
Dim RngeCell
Dim Found95
Dim PT95
Dim OpnRng
Dim MaxPt
Dim LastRow
Dim PS105
Dim HPress

' Locate 95 point
Range("C1").Select
For Each RngeCell In Range("C2:C4000")
If RngeCell.Value > 95 Then
Set Found95 = RngeCell: Exit For
End If
Next
Found95.Select
PT95 = Found95.Row
' Locate 105 Point
Range("C" & PT95).Activate
Range(Selection, Selection.Offset(200, 0)).Select
OpnRng = Range(Selection, Selection)
MaxPt = Application.WorksheetFunction.Max(OpnRng)
With Worksheets(1).Range(Selection, Selection)
Set PS105 = .Find(HighPt, LookIn:=xlValues)
HPress = PS105.Row
End With
MsgBox HPress

End Sub

[brettvba]

worked fine for me

[Colo]

Hi!
Pls change
OpnRng = Range(Selection, Selection)
to
Set OpnRng = Range(Selection, Selection)

And I would think you don't have to select ranges to run this like this.

Sub Velocity2()

    Dim RngeCell As Range, OpnRng As Range, PS105 As Range

    Dim HighPt, MaxPt As Long   '(Or Single, Or Double)



    For Each RngeCell In Range("C2:C4000")

      If RngeCell.Value > 95 Then

        Set OpnRng = RngeCell.Resize(201): Exit For

      End If

    Next

    If OpnRng Is Nothing Then Exit Sub

    MaxPt = Application.WorksheetFunction.Max(OpnRng)

    Set PS105 = OpnRng.Find(HighPt, LookIn:=xlValues)

    If PS105 Is Nothing Then Exit Sub

    MsgBox PS105.Row

    Set OpnRng = Nothing: Set PS105 = Nothing

End Sub

_________________
With regards,
Colo



[ This Message was edited by: Colo on 2002-04-29 19:55 ]