This is an example. It also shows how to ensure that any changes in the
called module are NOT passed back to the calling module

Sub test1()
Dim LastRow As Long

LastRow = 17
MsgBox "val1 in test1: " & LastRow
test2 LastRow
MsgBox "val2 in test1: " & LastRow
End Sub

Sub test2(ByVal LastRow As Long)
LastRow = 22
MsgBox "val in test2: " & LastRow
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Yasha Avshalumov" wrote in
message ...
I am trying to pass a variable I defined in a different sub to another one
so
I dont have to recreate the code in the new sub. I tried passing as some
book sugggest but still having problems. I am having problems with syntax
I
believe and can't seem to find my mistake. I tried passing the variable
like
this: Sub GetNotes(LastRow as Integer) and I defined the new sub the same
way. This give me a redifined error, saying that I am redifining the
variable, so I tried taking out "as Integer part" but this wont even let
me
compile the code. However if I take out the parameters the code complies
and
I can step through the code, but I cant do anything with the paraments in
the
heading. Please point me in the right direction, becasue I can't seem to
figure out what I am doing wrong.

thanks,