Private Sub Worksheet_Change(ByVal Target As Range)
Dim targ As Range
Set targ = Range("A1") 'Watch this cell (or cells)
Set targ = Intersect(targ, Target)
If targ Is Nothing Then Exit Sub
Select Case LCase(targ.Cells(1))
Case "apple"
frmApple.Show
Case "banana"
frmBanana.Show
Case "orange"
frmOrange.Show
End Select
End Sub
|