Hi all,
Can't figure this out. I have a combo box from the excel forms toolbar. From the combobox I call document names from a database into a cell (m14 in code below) using index and match functions.The macro behind the combo box then opens the selected document on the selection click. My problem is that if the combobox is on a particular selection (say file abc.xls), I cannot open that file until I have selected a different file (say file def.xls to in effect reset the combo box.
How do I get the combo box to work on the current selection without the 'reset'?
Thanks!
My code behind the forms toolbar cbox is below:
Sub OpenGrant()
Dim Filename As String
On Error GoTo errtrap
Filename = Range("m14").Text
Workbooks.Open Filename:=Filename
Sheets("Main Menu").Select
Range("A8").Select
Exit Sub
errtrap:
Dim nofilemsg
nofilemsg = MsgBox("No File Exists Please See Coordinator Information", vbOKOnly + vbExclamation, "System Alert")
End Sub
Can't figure this out. I have a combo box from the excel forms toolbar. From the combobox I call document names from a database into a cell (m14 in code below) using index and match functions.The macro behind the combo box then opens the selected document on the selection click. My problem is that if the combobox is on a particular selection (say file abc.xls), I cannot open that file until I have selected a different file (say file def.xls to in effect reset the combo box.
How do I get the combo box to work on the current selection without the 'reset'?
Thanks!
My code behind the forms toolbar cbox is below:
Sub OpenGrant()
Dim Filename As String
On Error GoTo errtrap
Filename = Range("m14").Text
Workbooks.Open Filename:=Filename
Sheets("Main Menu").Select
Range("A8").Select
Exit Sub
errtrap:
Dim nofilemsg
nofilemsg = MsgBox("No File Exists Please See Coordinator Information", vbOKOnly + vbExclamation, "System Alert")
End Sub