how to pass parameter to different sub?

Are both of those procedures in the same Worksheet module, or is the second in a general module?

If they are both in the same module, you would need to declare the variable at the top of the module, outside the other procedures.

Dim x As Long

Private Sub CommandButton1_Click()
x=10
Call part1
End Sub

Sub part1()
MsgBox x
End Sub

If they are in different modules, you will need to declare it as a public variable at the top of a general module.

Worksheet module:

Private Sub CommandButton1_Click()
x=10
Call part1
End Sub

General module:

Public x As Long

Sub part1()
MsgBox x
End Sub

HTH

Jason

Originally Posted by ccs_1981

can some1 pls help me? i m beginner in writing some marco.
below r my code

private sub commandbutton1_click()
x=10
call part1
end sub

sub part1()
msgbox x
end sub

how to pass the x=10 to sub part1?

Hi,

I note your thread title was asking how to pass a parameter to another sub. The replies you've had, whilst achieving what you want, rely on explicitly declaring a variable, using that and ensuring that it is a) still in scope, and b) its 'life' hasn't passed.

Passing a parameter is somewhat different. The pair of brackets that you see at the end of every Procedure name, e.g. MyFantasticProcedure() are where the receiving Procedure defines the value that's being passed. So for instance if you want to pass the number 10, you'd use the following code.

Call MyFantasticProcedure(10)

and the MyF..P... would be

Sub MyFantasticProcedure(MyVal as Integer)
'and the code
Range("A1")=Myval

'would put 10 in A1

HTH