Select Case Time Case Is < TimeValue("12:00") msg = "Good morning" Case Is < TimeValue("16:00") msg = "Good afternoon" Case Else msg = "Good evening" End Select