Worksheet_Change

  • Thread starter Thread starter zimfrancis
  • Start date Start date
Z

zimfrancis

Hi Guys,

I have tried to use the code:

Private Sub Worksheet_Change(ByVal Target As Range)

Rows("6:18").EntireRow.Hidden = False
Rows("20:37").EntireRow.Hidden = False

If Range("c5") = "1" Then
Rows("13:18").EntireRow.Hidden = True
ElseIf Range("c5") = "2" Then
Rows("20:37").EntireRow.Hidden = True
End If


End Sub

The code works ok with one change event. I would like to use it 3-4
times in a worksheet, but get an ambiguous message.

Any ideas
 
I think you can only have 1 Sub Worksheet_Change per sheet, however, you can
use Target (the cells which triggered the change) to decide on a course of
action within that sub.

eg (pseudocode)
if target.column = 3 then do something
if target.column = 2 then do something else


you can check if Target is within a specified range (real code):

If Not Intersect(Target, Range("A3:C6")) Is Nothing Then
MsgBox "It's a hit!"
Else
'do something else
End If

or you can use the Select Case facility.
 
Back
Top