Zoals ik al dacht, Date conflict, heb je ook naar de aangepaste code gekeken?
Private Sub Workbook_Open()
With Sheets("Retour document")
.Range("F5:F6").Value = Date
.Range("F4").Value = Application.UserName
.Range("Q3").Value = "Not Ready"
End With
ThisWorkbook.Save
End Sub
Twee tips voor de toekomst, gebruik NOOIT samengevoegde cellen in samenwerking met VBA (ja, ik heb je voorbeeldbestand bekeken in Helpmij)
Select en Activate zijn zelden nodig en vertragen je code.