passing objects

[John]

Hi,

do you pass an object to a function the same way as you
pass a normal variable.
ie, is this correct

public sub main()
anyVariable = anyFunction(rangeObject)
end sub

public Function anyFunction(rangeObject as range)
k = rangeObject.end(xldown).row
anyFunction=k
end Function

 

[Bob Phillips]

Hi John,

In essence what you are doing is correct. A couple of comments though.

You must declare the variable rangeObject, and declare it as type Range,
otherwise it will be implicitly declared as type Variant and you will get a
ByRef error when you try to pass it to the function where the argument is
specifically typed as a Range (declaring and typing variables is good
anyway).

Also, it is better IMO to declare the function type, and declare any
variables used within it, like so

Public Function anyFunction(rangeobject As Range) As Long
Dim k As Long
k = rangeobject.End(xlDown).Row
anyFunction = k
End Function

--

HTH

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