Bolter LAC
Board Regular
- Joined
- Aug 13, 2008
- Messages
- 140
A forum member has kindly provided some code which works a treat. I need to apply it to multiple columns A through to F and cells 2 down to 36. How do I incorporate this into the code.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Count > 1 Then
If Target.Address = "$A$2" Then
If Target.Value = "X" Then Application.Goto ThisWorkbook.Sheets("Sheet2").Range("A2")
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Count > 1 Then
If Target.Address = "$A$2" Then
If Target.Value = "X" Then Application.Goto ThisWorkbook.Sheets("Sheet2").Range("A2")
End If
End If
End Sub