I have a shared workbook that my department utilizes for work scheduling. The shared aspect has been causing problems with the VBA code.

I am considering reverting back to a exclusive use workbook. The problem with that is if a user opens the workbook and leaves for the day, or even worse, the weekend.

To counter act the problem of someone leaving the workbook open, I was considering using:

    Application.OnTime EarliestTime:=Now() + TimeValue("03:00:00"), Procedure:="SendText", Schedule:=True
    Application.OnTime EarliestTime:=Now() + TimeValue("04:00:00"), Procedure:="CloseFile", Schedule:=True
in the Workbook_Open event.

I would like to understand how to send a text message to the user that has the workbook open. Any examples?

Thank you.