Button that makes the "Find and Replace" popup come up when pressed.

Assign this macro to a button.

Sub Find_and_Replace_Show()
    Application.Dialogs(xlDialogFormulaFind).Show
End Sub

I would avoid buttons where ever possible, rather use the change event for the sheet , in ths case for cell A1.

Click on cell A1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        SendKeys "^f"
        Target.Offset(0, 1).Select
    End If
End Sub

Originally Posted by Marcol

I would avoid buttons where ever possible

I don't get it. What's wrong with buttons?

Originally Posted by Marcol

Once you have seen enough workbooks with deleted code, copied sheets, references to other workbooks, etc. you'll see why.

Respectfully disagree.