I am trying to disable the "Save Changes" dialog

Here is the code I am using, everything works but I still get the "Save Changes" dialog.

Private Sub btApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btApply.Click

Dim WSheet
Dim FN As String
Dim sv As New SaveFileDialog

sv.CreatePrompt = False

sv.OverwritePrompt = False

FN = "C:\WS 2000 Simulator\Data\Data.xls"

EXL.Workbooks.Open(FN)

WSheet = EXL.Workbooks.Item(1).Worksheets("Sheet1")

With WSheet
.Cells(4, 3).Value = txtSystemName.Text
.Cells(5, 3).Value = txtSystemLocation.Text
.Cells(6, 3).Value = txtAdminEMail.Text
.Cells(7, 3).Value = cbCountry.Text
.Cells(8, 3).Value = lblWS2000Version.Text
End With

EXL.Workbooks.Close()

End Sub

Thanks for any help