Create private macro/function

Hi guys,
I was able to sort of hide the macro, I would imagine it would depend on how much time your users have on their hands as to whether they could figure it out.

in a module I named Mod_private I added this code:

Option Private Module
Sub test_macro()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "MsgBox Demonstration" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End If
End Sub
in a module I named Mod_open I added this code:

Sub Macro1()
'
' Macro1 Macro
'
'
' Keyboard Shortcut: Ctrl+m
'
Call test_macro
End Sub

in the Macros dialog box the macro Macro1() is visible
the Macro Test_macro() is not visible, running macro1() will call and run Text_macro(), I am not sure this is what your looking for .. but it was an interesting excercise in subtrafuge.