Privé SubWorksheet_Change (Doel ByVal als Waaier)
Schemerige targ als Waaier
Reeks targ Horloge = van de Waaier (het „A1“ ) 'deze cel (of cellen)
De reeks targ = snijdt (targ, Doel)
Als targ niets toen is ga Sub weg
Selecteer Geval LCase (targ. Cellen (1))
Geval „appel“
frmApple.Show
Geval „banaan“
frmBanana.Show
Geval „sinaasappel“
frmOrange.Show
Uitgezocht eind
Sub van het eind
|