Excel - Si selecciono una celda concreta hacer función

Buenos días,

Me interesa crear una macro donde si selecciono una celda en concreto quiero que me haga una función. ¿Como lo puedo hacer?

He escrito el siguiente código pero no acierto:

Private Sub Macro1()

If Range("G4").Select Then

Texto = InputBox("Introduzca el dato del día de hoy", "Entrada de datos")

Worksheets("Hoja2").Cells(1, 4) = Texto

End If
End Sub

Muchas gracias por vuestra atención!

Un saludo

intenta esto
En la hoja donde quieres que ejecute la macro copias esto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Target.Column = "7" And Target.Row = "4" Then

texto = InputBox("Introduzca el dato del día de hoy", "Entrada de datos")
Worksheets("Hoja2").Cells(1, 4) = Texto



End If

End Sub

Muchas gracias Legarda!

Me funciona perfectamente!

Un saludo