Article ID: 189165
Article Last Modified on 11/23/2006
Function MyFunction(x As Integer, y As Integer, z As Integer) As Long
MyFunction = x * y + z
End Function
=myfunction(10,10,3)
Sub CallStep2OfDialogWizard()
' Set location for the function.
With Worksheets("Sheet1").Range("A1")
' Select cell A1.
.Select
' Place custom function in cell.
.Formula = "=myfunction()"
End With
' Display step 2 of Function Wizard.
Application.Dialogs(xlDialogFunctionWizard).Show
End Sub
X: 10
Y: 10
Z: 3
176476 OFF: Office Assistant Not Answering Visual Basic Questions
Additional query words: XL97
Keywords: kbdtacode kbhowto KB189165