(excel_2010_VBA) Исправить макрос

Формулировка задачи:

Здравствуйте. На просторах данного форума нашёл макрос немного переделал, а как бы в него добавить поиск ещё нескольких ячеек содержащих информацию "09:00:00:00", "13:30:00:00", "16:30:00:00", "18:30:00:00", "00:00:00:00". Данная информация бывает не всегда.

Sub Test()
  Dim Sh As Excel.Worksheet 
  Dim rngTbl As Excel.Range 
  Dim rngCol As Excel.Range 
  Dim Cell As Excel.Range 
  Dim nRow As Long
  Set Sh = Application.ActiveSheet
  Set Cell = Sh.Cells(2, 1)
  Set rngTbl = Cell.CurrentRegion
  Set rngCol = rngTbl.Columns()rngTbl.
  nRow = 0
  Set Cell = rngCol.Find(What:="08:30:00:00", LookIn:=xlValues, LookAt:=xlPart)
  If Not (Cell Is Nothing) Then
    nRow = Cell.Row - rngCol.Row + 1
    rngTbl.Rows(nRow).Interior.Color = RGB(192, 0, 0)
  End If
  End Sub

Решение задачи: «(excel_2010_VBA) Исправить макрос»

textual
                            Листинг программы 
                        

                            Sub Test()
    Dim Sh As Excel.Worksheet
    Dim rngTbl As Excel.Range
    Dim rngCol As Excel.Range
    Dim Cell As Excel.Range
    Dim nRow As Long
    Dim arr, i As Integer
    Set Sh = Application.ActiveSheet
    Set Cell = Sh.Cells(2, 1)
    Set rngTbl = Cell.CurrentRegion
    Set rngCol = rngTbl.Columns()rngTbl.
    arr = Array("08:30:00:00", "09:00:00:00", "13:30:00:00", "16:30:00:00", "18:30:00:00", "00:00:00:00")
    For i = 0 To UBound(arr)
       nRow = 0
       Set Cell = rngCol.Find(What:=arr(i), LookIn:=xlValues, LookAt:=xlPart)
       If Not (Cell Is Nothing) Then
        nRow = Cell.Row - rngCol.Row + 1
        rngTbl.Rows(nRow).Interior.Color = RGB(192, 0, 0)
       End If
    Next i
End Sub
                        