Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _ lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _ hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As LongConst WM_CLOSE = &H10' close a MS-DOS window'' if Caption is omitted, it randomly closes one' of the opened Dos windowsSub CloseDosWindow(Optional Caption As Variant) Dim hWnd As Long ' if argument is omitted, don't care for window caption If IsMissing(Caption) Then Caption = vbNullString ' find the window hWnd = FindWindow("ConsoleWindowClass", Caption) ' close it by sending it a WM_CLOSE message If hWnd Then SendMessage hWnd, WM_CLOSE, 0, ByVal 0 End IfEnd Sub