[SOLVED] Closing Notepad from Excel using VBA

[magnusflett]

Can I close Notebook.exe from VBA?

I have a VBA program that writes calculated results to a text file. I can access this output file clicking a button and using the Shell command, typically:

Private Sub OutputLongButton_Click() 
    outputLongFile = "C:\RS01outputLongFile.txt" 
    RetVal = Shell("notepad.exe " & outputLongFile, vbNormalFocus) 
End Sub 

This works fine and notebook can be closed manually after viewing the file.

I also want to view the file whilst the calculation is halted using a YES/NO box. I can view the file with a similar routine to that above, but can I close notebook from VBA?

The file is displayed during the last part of my main calculation program:

outputLongFile = "C:\RS01outputLongFile.txt" 
RetVal = Shell("notepad.exe " & outputLongFile, vbMinimizedNoFocus) 
J = 0 'Reset time to zero
Call KeyboardInput 
If doAgainFlag = True Then Goto 200 
End Sub 

The Keyboard Input subroutine is the YES/NO box and is:

Sub KeyboardInput() 
    iReply = MsgBox(Prompt:="Do you wish to ammend the data using the keyboard?", _ 
    Buttons:=vbYesNo, Title:="Keyboard Input") 
    If iReply = vbYes Then 
        doAgainFlag = True 'Recalculate
        dataFlag = False 'Keyboard input
        Call ResetAll 'Reset for recalculation
    ElseIf iReply = vbNo Then 
        doAgainFlag = False 'Finished
        Exit Sub 
    End If 
End Sub 

Any suggestions?