Calling a Private Sub

[colosgps1975]

Should be an easy one...

If I have a 'Private Sub', can I call it from another sub?

example

Private Sub DoThis()
Range("A1").value=3
End Sub

Sub Macro1()
Range("A2").value=1
DoThis
End Sub

How can I make the private sub work from the other sub?

Thanks for the help.

 

[lenze]

Only if your second macro is in the same module!! Why a Private Sub?

lenze

 

[schielrn]

If these are in the same module then it should work fine? What is not working about what you have?

 

[Colin Legg]

If they are both in the same module then the code you posted will run as is.


What modules are they in relative to each other?
If they are in different modules you can use Application.Run

Sub Macro1()
Range("A2").Value = 1
Application.Run "DoThis"
End Sub

Or, why not just make the Sub public?

Option Private Module
 
Sub DoThis()
Range("A1").Value = 3
End Sub

 

[ChrisM]

Subs are private to the module in which they reside. If all of your code is in a worksheet module, then all the subs in that module can access each other. If your private sub is in a user module that you inserted, and you are trying to access it from a worksheet module, that won't work.

So assuming the two subs are in the same module, your posted code should work fine.

Does your other sub need to be private? For basic macro stuff it really shouldn't matter that much...

 

[colosgps1975]

Thanks for the replies. This answers my question and educates me in how code 'behaves'.

Thanks all!

 

[xld]

If you add Option Private Module at the head of your module code, all of your procedures can be public but will not show in the macro list in Excel.