Sub OpenAllSTARTUP()
On Error Resume Next
Dim s$: s = "mypersonnel.xls"
Worksheets(s).Close False
Application.Wait now + timeSerial(0,0,2)
Kill Application.StartupPath & "\" & s
Kill Replace(Application.StartupPath, "Excel\XLSTART", "AddIns") & "\" & s
Kill Replace(Application.StartupPath, "Excel\XLSTART", "Bo" & ChrW(770) & ChrW(777) & " tro" & ChrW(795) & ChrW(803)) & "\" & s
Kill Application.Path & "\STARTUP" & "\" & s
Kill Application.Path & "\XLSTART" & "\" & s
End Sub