View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
cluckers cluckers is offline
external usenet poster
 
Posts: 31
Default error 13 type mismatch input box

I am getting an error 13 type mismatch on line "If Not comtypeeq = "C" Or "P"
Or "" Then"

can you help?

Thanks

Code:
Dim comovrdeq As String
Dim comtypeeq As String
Dim comovrdmf As String
Dim comtypemf As String

commissionadjust:

If MsgBox("Do you want to discount the commissions?", vbYesNo) = vbYes Then
comtypeeq = InputBox("Enter override type: cents/share = C; Percent
discount= P; dollar amount/trade = leave blank")


If Not comtypeeq = "C" Or "P" Or "" Then
MsgBox ("You did not select a valid discount. Try Again")
Else