PDA

View Full Version : find a module



lior03
12-19-2005, 12:37 PM
hello
the following macro finds a code and open a module.
is it possible to add the module number or module name to the msgbox
Sub testers2()
Dim y As String
y = InputBox("select macro to find: ", "a macro finder", Default:="enter procedure name please:")
On Error GoTo ErrH
Application.Goto y
MsgBox "Macro " & y & " found. ", 64
Exit Sub
ErrH:
MsgBox "Macro " & y & " not found ", 48
End Sub
thanks