Bypass code

[av8tordude]

How can I bypass the code highlighted in red if the frmReceipt was not called?
[vba]
Range("Expense").Cells(Table, 1) = Application.Max(Range("AU11:AU500")) + 1
Range("Expense").Cells(Table, 2) = CDate(Date5)
Range("Expense").Cells(Table, 3) = cboCat.Value
Range("Expense").Cells(Table, 4) = cboDesc.Value
Range("Expense").Cells(Table, 5) = CCur(Amnt)
Range("Expense").Cells(Table, 6) = frmReceipt.txtReceipt.Value
Range("Expense").Cells(Table, 7) = frmReceipt.txtName.Value
Range("Expense").Cells(Table, 8) = frmReceipt.txtCity.Value & ", " & frmReceipt.txtState.Value
Range("Expense").Cells(Table, 9) = Format(frmComp.Comp, "$0.00")[/vba]

[CharlesH]

Hi,

You can set a boolean that when the userform is call to set the boolean to True and with in the code. In a Module use "Public MyForm as Boolean".
With in the Form code you set MyForm = True.
After the code below runs you set the MyForm to False

Range("Expense").Cells(Table, 1) = Application.Max(Range("AU11:AU500")) + 1 
Range("Expense").Cells(Table, 2) = CDate(Date5) 
Range("Expense").Cells(Table, 3) = cboCat.Value 
Range("Expense").Cells(Table, 4) = cboDesc.Value 
Range("Expense").Cells(Table, 5) = CCur(Amnt) 
If MyForm = true then
   Range("Expense").Cells(Table, 6) = frmReceipt.txtReceipt.Value 
   Range("Expense").Cells(Table, 7) = frmReceipt.txtName.Value 
   Range("Expense").Cells(Table, 8) = frmReceipt.txtCity.Value & ", " &    frmReceipt.txtState.Value 
   Range("Expense").Cells(Table, 9) = Format(frmComp.Comp, "$0.00") 
end if
MyForm = False

[av8tordude]

Thank you Charles. Your suggestion worked.

[CharlesH]

Thanks for letting me know.