How do you make functions available to all modules

[Photomofo]

Hello... Here's a simple function I use in a lot of different programs. I normally just paste it into each module but it occurs to me there should be a way to paste it a single time and make it available to all the modules.

'Get Folder


Function Get_Folder()


Dim Folder_x As String


Folder_x = Application.GetOpenFilename()


Do While Right(Folder_x, 1) <> "\"


    Folder_x = Left(Folder_x, Len(Folder_x) - 1)


Loop


Get_Folder = Folder_x


End Function

 

[footoo]

http://cis.poly.edu/~mleung/CS394/f06/VBA/CustomFcns/availability.html

 

[Photomofo]

Thanks... I used public in front of function and that seemed to work. But my file promptly became corrupted and I lost 20 hours of work. So not cool. The issues are likely not related. Ce la vie.