Developing.ru

Попытался запрагромировать помощника на появление при щелчке на определенной ячейке, но ничего не вышло. В коде вроде все нормально -
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
With Assistant
.On = True
.Visible = True
.Move xLeft:=400, yTop:=300
.Animation = msoAnimationThinking
End With
Else
With Assistant
.On = False
.Visible = False
End With
End If
End Sub

Что здесь не так???? ops:

Попробуйте вот так :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$A$1" Then

With Assistant
.Visible = True
.Move xLeft:=400, yTop:=300
.Animation = msoAnimationThinking
End With

End If

End Sub