CloseWindow - 0mj/vba GitHub Wiki

Sub CloseWindow() the_notepad_window = FindWindow(vbNullString, "Untitled - Notepad")

Call SendMessage(the_notepad_window, WM_CLOSE, 0, 0)

End Sub