Custom About Dialog
Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long Declare Function GetActiveWindow Lib "user32" () As Long Sub AboutMrExcel() Dim hwnd As Integer On Error Resume Next hwnd = GetActiveWindow() ShellAbout hwnd, nm, " Consulting" + vbCrLf, 0 On Error GoTo 0 End Sub