我需要在excel vba上的IF語句后突出顯示一個單元格

Question

我的代碼需要幫助。 我想在第二條If語句運行后，希望突出顯示具有“沖突”的行。 我一直在使用代碼，但是出現“對象必需錯誤”，這是我的代碼“這是IF語句`

If (StartTime > RowStartTime) And (StartTime < RowEndTime) Or _
   (RowStartTime > StartTime) And (RowStartTime < EndTime) Then
        msgbox "Conflict"
        ActiveCell.Select
        Target.Interior.ColorIndex = 8`

子：

Public Sub LoopRows(Appserver As String, StartTime As Date, EndTime As Date)

      Dim x As Integer
      Dim NumROws As Integer
      NumROws = Range("Sheet3!C5").End(xlDown).Row - Range("Sheet3!C5").Row
      Worksheets("Sheet3").Activate
      Range("Sheet3!C5").Select
      msgbox Appserver
      msgbox StartTime
      msgbox EndTime
      For x = 1 To NumROws
        ActiveCell.Offset(1, 0).Select
        If (ActiveCell.Offset(0, 1).Value = Appserver) Then
             Dim RowStartTime As Date
             Dim RowEndTime As Date
            msgbox ActiveCell.Offset(0, 1).Value
            RowStartTime = Val(ActiveCell.Offset(0, 3).Value)
            RowEndTime = Val(ActiveCell.Offset(0, 4).Value)
             If (StartTime > RowStartTime) And (StartTime < RowEndTime) Or (RowStartTime > StartTime) And (RowStartTime < EndTime) Then
                msgbox "Conflict"
                ActiveCell.Select
    Target.Interior.ColorIndex = 8
    Application.ScreenUpdating = True
             Else
                msgbox "noConflict"
             End If
         End If
      Next
End Sub 

Answer 1

ActiveCell.EntireRow.Interior.ColorIndex = 8