Macro para horas

¡ Hola ! Que tal compañeros, tengo unas dudas muy grandes la verdad tengo poco programando en VB EXCEL, pero tengo los conocimientos necesarios para entender y digerir cierta informacion, pero como ya mencione tengo poco en este hambito y no he podido resolver algunos problemas el primero es el siguiente.

1.- Quiero restarle 3 horas a un valor de una celda en especifico x ejemplo en la celda M12 tengo el valor de 17:00 HR y quisiera restarle 3 horas asi por defauld 3 horas y lo que tengo es esto de codigo

Sub auto_open()
Dim restar As Date

restar = Sheets("Hoja1").Range("M6")- 3

End Sub

Aqui donde 3 deben de ser 3HR pero no se como hacer esa declaracion xke lo que voy hacer es recorrer un rango de celdas y restarles a todas 3 horas y las estare almacenando en otro lugar. buenosi alguien sabe como hacer esa declaracion por favor le ruego pueda ayudarme yo ya he buscado muchos ejemplos en internet pero no encuentro nada parecido.

y ahora otro problema que tengo con respecto a lo mismo de las horas yo quiero a una cierta hora determinada por ejemplo a las 3:00 pm me envie un mensaje por ej. ya es hora de ir a comer

Application.OnTime TimeValue("15:00:00"), "Es hora de comer"

esta es la aplicacion que utilizo pero cuando llega a esa hora me dice manda un mensaje que dice que la macro no se puede ejecutar por que no esta habilitada y me imagino que tiene que haber alguna funcion que deje habilitada la macro mientras el documento se encuentre abierto.

bueno la verdad es que creo que son cosas aparentemente faciles las cuales no puedo resolver y me estan dando un verdadero dolor de cabeza, espero que ustedes puedan ayudarme a resolverlas y de antemano les agradesco infinitamente su ayuda muchisimas gracias por su atencion.