Excel VBA Saveas Force ditimpa

Set xls = CreateObject("Excel.Application")    
xls.DisplayAlerts = False
Set wb = xls.Workbooks.Add
fullFilePath = importFolderPath & "\" & "MyFile.xlsx"
wb.SaveAs fullFilePath, AccessMode:=xlExclusive, _
  	ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges    
wb.Close (True)
VasteMonde