--

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
...
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



.