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

Eu estou procurando conseguir o seguinte:

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

Desejo 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 formatada condicionalmente em vermelho devido a dados fora do intervalo.

Abaixo está o código que eu 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