How do I usa a value in one macro in another?

[alexaronson]

Hello,

I am trying to get a value in one macro to be used in another.

For example,

If macro FavoriteNumber has the following code:

Sub FavoriteNumber()

Dim FavNumber

FavNumber = InputBox("What is your favorite number?")
Trim FavNumber

End Sub

How do I get the returned value of FavNumber to be used in the macro MultiplyNumber?

Sub MultiplyNumber()

FavNumber = FavNumber * 5

MsgBox = ("My favorite number is " & FavNumber & ".")

End Sub

Thanks for any help you can give

Alex in Memphis

 

[jindon]

1) Global variable

Private FavNumber As Double

Sub FavoriteNumber()

   FavNumber = CDbl(InputBox("What is your favorite number?"))

   Call MultiplyNumber

End Sub

Sub MultiplyNumber()

   MsgBox = ("My favorite number is " & FavNumber * 5 & ".")

End Sub

2) passing vaiable

Sub FavoriteNumber
   Dim FavNumber As Double
   FavNumber = CDbl(InputBox("What is your favourite number?"))
   MultiplyNumber FavNumber
End Sub

Sub MultiPlyNumber(myNum As Double)
   MsgBox myNum * 5
End Sub