OK I have put DIM NowTime as String at the top of the workbook code
and added NowTime = Time() (won't this only happen once do I need to call this funtion over and over again
and added
Select Case NowTime
Case "10:15:00", "10:36:00", "10:45:00", "11:00:00"
Call Macro11
Case etc...