Code:
Sub ShowHelp()
Application.Assistant.On = True
With Assistant.NewBalloon
.Heading = vbCrLf & Cells(4, 2)
.Text = Cells(4, 3)
.BalloonType = msoBalloonTypeButtons
.Mode = msoModeModeless
.Callback = "ProcessRequest"
.Show
End With
End Sub
Sub ShowHelp()
Application.Assistant.On = True
With Assistant.NewBalloon
.Heading = vbCrLf & Cells(4, 2)
.Text = Cells(4, 3)
.BalloonType = msoBalloonTypeButtons
.Mode = msoModeModeless
.Callback = "ProcessRequest"
.Show
End With
End Sub
Izbacuje gresku :
"Run-time error '-2147467259 (80004005)':
Automation error
Unspecified error"