If Target.Value > TimeValue("06:00") And Target.Value < TimeValue("13:01") Then IndColH = ColHM
If Target.Value > TimeValue("13:00") And Target.Value < TimeValue("22:01") Then IndColH = ColHA
If Target.Value > TimeValue("22:00") And Target.Value < TimeValue("06:01") Then IndColH = ColHN