Hi Tom! Thanks for your response!!
Yes I am using John W.s code I should have said so in the beginning
Sorry!
After I added your code I tryed to launch the code and got a run-tim
error '424': "Object required" when I debugged th
<TempForm.Properties("ShowModal") = False code was yellow hi-lited.
I put your Dim code at the top with the rest of them
I put <TempForm.Properties("ShowModal") = False directly under that
I put the
sTempFormName = TempForm.Name
Names.Add Name:="FormName", RefersTo:="=""" & sTempFormName & """"
Application.OnTime Now, "ShowForm"
directly under the <VBA.UserForms.Add(TempForm.Name).Show however th
first two lines are already there (at the top of the code after Dims)
I removed the code that deleted the tempform but I am unsure what to d
with the showform subroutine code you gave me since I use the followin
code to launch the whole thing
Dim Ops() As Variant
Dim Cnt As Integer, i As Integer
Dim UserChoice As Variant
If Not Intersect(ActiveCell, Range("vendors")) Is Nothing Then
Cnt = Range("VENDORLIST").Count
ReDim Ops(1 To Cnt)
For i = 1 To Cnt
Ops(i) = Range("VENDORLIST").Range("A1").Offset(i - 1, 0)
Next i
UserChoice = GetOption(Ops, 1, "Vendors")
If UserChoice = False Then
ActiveCell.Value = ""
Else
ActiveCell.Value = Ops(UserChoice)
End If
End If
End Sub
I'll keep working at it!
Any further help would be greatly appreciated and thanks again!
--
Brian Matlac
-----------------------------------------------------------------------
Brian Matlack's Profile:
http://www.excelforum.com/member.php...nfo&userid=350
View this thread:
http://www.excelforum.com/showthread.php?threadid=56290