Ah there we go, thank you. I had it in the worksheet
module. I put it in a regular module and now its in User
Defined, however when I try to insert it in cell A1, it
does nothing. when I am inserting it in cell A1 it says
this function takes no arguments. So how would I make it
take argument so that whatever is in cell A1, it will use
that value as the variable instead of the input box?


-----Original Message-----
Todd,

Where have you stored it? It should be in a general
module, not a worksheet
module or ThisWorkbook.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Todd Huttenstine"
wrote in message
...
Below is a function I am working with to calculate
commissions. How do I get it to where when I click on a
cell in Excel, and then go to insert function, how do I
make it to where I can select that function from in
there? Right now I dont see it in there.

Option Explicit
Dim SalesQ As Currency
Dim CalculateCommission As Currency
Public Function CalComm() As Currency
CalculateCommission = SalesQ * (1.5 / 100)
End Function

Public Sub main()
SalesQ = InputBox("Enter Sales Amount")
Call CalComm
MsgBox ("The commission amount is: $" &
CalculateCommission)
End Sub



.