Changing ActiveX control properties based on cell text

[Artik]

if active cell = "A1" then
Procedure A
exit sub
Else
Procedure B
end sub

You can't use the simple "Else" because in the example you gave, "Procedure B" would be performed in any case except cell A1.
A complex condition should be written like this:

Private Sub Worksheet_Change(ByVal Target As Range)


  If ActiveCell.Address(0, 0) = "A1" Then
    Procedure A
  ElseIf ActiveCell.Address(0, 0) = "B1" Then
    Procedure B
  End If


End Sub

If cell A1 is active, Procedure A will be performed. If B1 is active - Procedure B will be performed. In any other case, nothing will happen.


Artik