Pregunta para dante abrir hojas con macros

La siguiente macro va en los eventos de workbook, para que que funcione en todas las hojas.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{Enter}"
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Por.DAM
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Target.Row > 3 Then
            Application.OnKey "{Enter}", "Fecha"
            'Application.OnKey "{Enter}"
        End If
    End If
    '
    If Not Intersect(Target, Range("G:G")) Is Nothing Then
        If Target.Value = "" Then
            Cells(Target.Row, "A").Select
        End If
    End If
End Sub