how make vba code work over range of cells

**sspreyer** · 08-05-2013, 08:32 PM

hi

i have some vba code that works perfectly but only on cell c2 but would like it to work on every cell in column c

thanks in advance here my code

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Address = "$C$2") Then
        If (Target.Value = "133") Then
        
          Dim varAnswer As String
     
    varAnswer = MsgBox("test")
     
     
     
        If varAnswer = vbNo Then
        Exit Sub
        End If
    If varAnswer = vbYes Then
         
    
    End If
        End If
    End If
End Sub

**HaHoBe** · 08-05-2013, 11:42 PM

Hi, sspreyer,

maybe like this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
  If Target.Value = 133 Then
    Dim varAnswer As String
    varAnswer = MsgBox("test", vbYesNo)
    If varAnswer = vbNo Then
      Exit Sub
    Else
      MsgBox "Action"
    End If
  End If
End If
End Sub

Ciao,
Holger