What have you tried so far?
as a start
Sub Call_A_Parameter_Function()
Call ParamFunction(1)
End sub
Function ParamFunction(Arg1 as integer)
msgbox "Parameter PAssed was " & cstr(Arg1)
End Function
Rgds, Geoff
We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.
Please read FAQ222-2244 before you ask a question