Macro no funciona

[96andres96]

Buenas tardes.

Tengo el siguiente código en una macro:

 

Sub Prueba()

hora = Hour(Now)

If hora <= 18 & Sheets("Hoja1").Range("G7") = 1 Then

    MsgBox ("haz esto")
    
ElseIf hora > 18 & Sheets("Hoja1").Range("G7") = 2 Then

    MsgBox ("haz esto otro")
    
Else

    MsgBox ("No se cumple")

End If

End Sub

Sin embargo,  siempre se me ejecuta el Else aunque a priori se cumplan las condiciones del If.

Adjunto el excel de prueba.

¿Alguna idea del por qué no entra en el If ni en el ElseIf?

Gracias
 

Prueba.xlsm

[Janlui]

Cambia & por AND