View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Phil H[_2_] Phil H[_2_] is offline
external usenet poster
 
Posts: 87
Default ComboBox Code Problems

The following code is held in ComboBox1 click event. It is intended when the
user clicks on one of the choices, either a hyperlink or macro is executed.
Im getting a compile error: Argument not optional. On the fifth line, the
following code is highlighted: .FollowHyperlink

Can someone suggest a fix?

Private Sub ComboBox1_Click()
With ThisWorkbook.ActiveSheet.Range("A79")
Select Case (.Offset(ComboBox1.ListIndex, 4).Value)
Case "Hyperlink"
ThisWorkbook.FollowHyperlink.Offset(ComboBox1.List Index, 6).Value
Case "Run Macro"
Application.Run.Offset(ComboBox1.ListIndex, 6).Value
Case Else
MsgBox "Other Action not currently supported.", vbInformation +
vbOKOnly, "Info"
End Select
End With
End Sub
Operating addresses:

Cell Function
A79 ComboBox Linked Cell
A81:A86 ListFill Range
F81:F86 Action (Text: Hyperlink, or, Run Macro)
G81:G86 Value (Hyperlinks, or, Macro names)