perhaps missing the point (before Range)
With ThisWorkbook.Worksheets("Break")
   .Range("A4").Value = Format(Time, "hh:mm:ss AM/PM")