Close active File and Active window

Hi Guys...

This is probably very basic but have not yet come across a solution...
I always make use of this code for closing my designed excel applications, however this closes all excel files

Private Sub CommandButton4_Click()
Unload Me
ThisWorkbook.Save
Application.Quit
Application.ActiveWindow.Close savechanges:=False
ActiveWorkbook.Close savechanges:=True
End Sub

This code leaves a grey window open...what code can i make use of to close my file and It's active window without closing all excel files?

Private Sub CommandButton4_Click()
Unload Me
ThisWorkbook.Save
Application.ActiveWindow.Close savechanges:=False
ActiveWorkbook.Close savechanges:=True
End Sub