¿Cómo puedo crear un aviso en excel que me indique que cada 40 minutos debo beber agua?

Create una hoja de cálculo nueva y entra en el editor de Visual Basic con <Alt><F11>
Pincha en "ThisWorkBook" (mejor con doble-click) y copia este código.
Private Sub Workbook_Open()
    MsgBox "Te iré avisando cada 40 minutos (o 2400 segundos)"
    Do
        esperaSegundos 2400
        MsgBox "Ya han pasado los 40 minutos. Hasta dentro de otros tantos..."
    Loop
End Sub
Sub esperaSegundos(ByVal nSeg As Double)
    Dim t1 As Double
    Dim t2 As Double
    t1 = Timer
    Do
        t2 = Timer
        If t2 < t1 Then t2 = t2 + 24# * 60# * 60# ' Hemos cambiado de día
        DoEvents
    Loop Until t2 - t1 >= nSeg
End Sub
Guarda el libro y cuando lo abras te empezará a contar el tiempo.
Por cierto, tienes que tener habilitadas las macros para que te funcione.