Sleeper: Selecting rows in between 2 speicific words

[everytime]

hi there , is there some way which i can select all the row inbetween 2 specific words ... say onshore , offshore , on and off shore ..

thanks in advance

[Jacob Hilderbrand]

Try this:

Option Explicit 
 
Sub SelectRange()
Dim FirstRow        As Long
    Dim LastRow         As Long
On Error Resume Next
    FirstRow = Cells.Find(What:="On Shore", After:=Range("IV65536"), LookIn:=xlValues, LookAt:= _
    xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
LastRow = Cells.Find(What:="Off Shore", After:=Range("A1"), LookIn:=xlValues, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    On Error GoTo 0
If FirstRow > 0 And LastRow > 0 Then
        Range("A" & FirstRow + 1 & ":IV" & LastRow - 1).Select
    End If
End Sub