Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
Set objXL = GetObject(, "Excel.Application")

x = objXL.Workbooks.Application.ActiveWorkbook.Name

If x = "Prosjekt.xls" Then
objXL.x.Close savechanges:=True ' ?????????
End If

End Sub

Need help!