Accessing Dim from child sub

**bassima** · 08-10-2011, 10:41 PM

Hi All,

I need to to use dates in different formats in many of my Sub.

What i thought i could do is creat a sub as below and run the sub/function before i run my main sub.

Sub DateVars()

Dim ddmmyy

    ddmmyy = Format(Date, "ddmmyy")

End Sub

and then run the code from the main sub

Sub DatePassTest()

DateVars

Cells(10, 4).Value = ddmmyy

End Sub

How can i get this to work?

**teylyn** · 08-10-2011, 11:19 PM

Hello,

if you want to access a variable in different procedures, you need to declare it at the top of the module as a public variable.

Public ddmmyy

Sub DateVars()

    ddmmyy = Format(Date, "ddmmyy")

End Sub

Sub DatePassTest()

     DateVars 

     Cells(10, 4).Value = ddmmyy

End Sub