Criando uma célula Obrigatória com base na formatação condicional de outra célula

Question

Estou procurando alcançar o seguinte:

Column C foi condicionalmente formatado com base na entrada de dados: se os dados inseridos estiverem fora do intervalo, o plano de fundo da célula ficará vermelho.

Eu quero forçar uma entrada de dados na parte inferior da planilha por meio de uma caixa de entrada obrigatória sempre que os dados forem inseridos e a célula for condicionalmente formatada em vermelho devido a dados fora da faixa.

Abaixo está o código que tentei:

Private Sub worksheet_change(ByVal target As Range)
If target.rows.count > 1 or target.columns.count > 1 Then
   Exit Sub
End If

Dim com As String
Dim comm1 As String

Set isect=Application.Intersect(target,Range("C1:C100"))
If isect Is Nothing Then

Else

If target.Interior.Color = RGB(255,0,0) Then
   com = "Enter comment at bottom of sheet"

   Do While comm1 = ""
      comm1 = Application.InputBox(prompt:=com, Type:=2)
      On Error GoTo myloop
      If comm1 = False Then
          comm1 = ""
      End If

myloop:
   On Error GoTo -1
   Loop
   Range("B101").Value = comm1

Else
   Range("B101").Value = ""
End If
End If
End Sub