Meerdere macro's bij celmutatie

[goof2808]

Hi,

Ik heb onderstaande code in een werkblad staan:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("C7")) Is Nothing Then
    If Target.Value = "CBA" Then
      open_personeelsregeling

   End If
End If
End Sub

Als in cel C7 de waarde "CBA" wordt ingevuld dan gaat macro "open_personeelsregeling" draaien.

Ik wil een andere macro laten draaien als in C7 "Fortis" wordt ingevoerd.

Kan dat?

Thanks!

govi

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Target.address="$C$7" Then
    Select Case target.Value 
    Case "CBA"
      open_personeelsregeling
    Case "Fortis"
      beter_gesplitst_dan_gefuseeerd
    End Select
  End If
End Sub

 

[goof2808]

Thanks snb
Ook thanks voor je scherpe kijk op de financiele markt