Originally Posted by
mdmackillop
Try this. You need to remove the Hyperlink from your buttons.
[vba]
Option Explicit
Dim LastVal As Range
Sub SearchNow()
Dim c As Range
If LastVal Is Nothing Then Set LastVal = Range("G3")
Set c = Columns("G").Find(Range("G3"), lookat:=xlWhole, after:=LastVal)
If c.Row = 3 Then
Set LastVal = c
SearchNow
Exit Sub
End If
Set LastVal = c
c.Select
End Sub
Sub PasteNotes()
If ActiveCell <> Range("G3") Then
MsgBox "Select name cell"
Exit Sub
End If
ActiveCell.Offset(, -1).Resize(, 10).Copy
Sheets("Notes Tool").Range("G9").PasteSpecial Paste:=xlPasteValues, Transpose:=True
ActiveCell.Offset(, 11).Copy
Sheets("Notes Tool").Range("G12").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
[/vba]