Search between here and word

How do I search "LAUNCH" between the selected cell's row and the next occurence of the cell with "APPL"?

I am going to take what the OP said very literally.

Sub miscFind()
Dim ws As Worksheet:    Set ws = Sheets("Sheet1")
Dim applFind As Range, launchFind As Range

Set applFind = ws.Range(Selection, ws.UsedRange.SpecialCells(xlCellTypeLastCell)).Find(What:="APPL", LookIn:=xlValues, Lookat:=xlWhole)

If Not applFind Is Nothing Then
    Set launchFind = ws.Range(Selection, applFind).Find(What:="LAUNCH", LookIn:=xlValues, Lookat:=xlWhole)
        If Not launchFind Is Nothing Then
            MsgBox ("LAUNCH was found in cell " & launchFind.Address)
        Else
            MsgBox ("LAUNCH was not found")
        End If
Else
    MsgBox ("APPL was not found")
End If
    
End Sub