Hello from Steved

Thankyou

I put in your Script as show'n below it finds in this case Panmure but does
not select ( highlite ) the cells, please what have I've done wrong.

Thankyou.

Option Explicit
Sub myFind()

Dim FoundCell As Range
With ActiveSheet
With .Range("a:a")
Set FoundCell = .Cells.Find(what:="Panmure", _
after:=.Cells(1), _
LookIn:=xlValues, _
lookat:=xlWhole, _
SearchOrder:=xlByRows, _
searchdirection:=xlPrevious, _
MatchCase:=False)
End With
End With

If FoundCell Is Nothing Then
ActiveSheet.Range("A2:G" & FoundCell.Row).Select
Else
Application.Goto FoundCell, scroll:=True
End If
End Sub





"Rick Rothstein (MVP - VB)" wrote:

Sorry, test code accidentally left in... for your stated condition, the
statement should be...

ActiveSheet.Range("A2:G" & FoundCell.Row).Select

unless you extend the End With statement for the With ActiveSheet block to
encompass the statement, in which case you can leave the ActiveSheet off...

..Range("A2:G" & FoundCell.Row).Select

Rick


"Rick Rothstein (MVP - VB)" wrote in
message ...
Once you locate FoundCell, you should be able to run this line of code...

Worksheets("Sheet1").Range("A2:G" & FoundCell.Row).Select

in order to select the range you indicated.

Rick


"Steved" wrote in message
...
Hello from Steved

Using the Below to find the last name Fred in Col A I would like please
to
have the cursor in Cell A2 then Highlite the Cells to the last Name Fred
then
once found Highlite 7 colums to the right, so for example the last Fred
may
be found in Cell A 47, so in this intance the highlighted cells would be
A2:
G47 Thankyou.

Option Explicit
Sub myFind()

Dim FoundCell As Range
With ActiveSheet
With .Range("a:a")
Set FoundCell = .Cells.Find(what:="Fred", _
after:=.Cells(1), _
LookIn:=xlValues, _
lookat:=xlWhole, _
SearchOrder:=xlByRows, _
searchdirection:=xlPrevious, _
MatchCase:=False)
End With
End With

If FoundCell Is Nothing Then
MsgBox "Fred wasn't found!"
Else
Application.Goto FoundCell, scroll:=True
End If
End Sub