- Oct 20, 2003
Hello all, using a code from the board I've gotten this far.
Now this works, but I like annoying my coworkers with the assistant and instead of the msgbox, want the information to continue to come from the assistant. But everytime I replace the Msgbox code with code to change the text in the assistant balloon, it tells me "case without select case" error. Ideas?
Sub Helper() Dim rspns As Integer Set myballoon = Assistant.NewBalloon With myballoon .BalloonType = msoBalloonTypeButtons .Button = msoButtonSetNone .Text = "Do you need help?" _ & Application.Rept(Chr(13), 2) & "What do you need help with?" .Labels(1).Text = "Part Numbers Sheet" .Labels(2).Text = "Marketing Inven Sheet" .Labels(3).Text = "Scanable Card Sheet" .Labels(4).Text = "Label Sheet" .Labels(5).Text = "Other" rspns = .Show End With Select Case rspns Case 1: MsgBox "howdy" Case 2: MsgBox "wuz up" End Select End Sub