@ Softaid, misschien zo.
Private Sub Workbook_Open()
If MsgBox("Er worden 12 minuten toegevoegd in cel H50, is dit ok?", vbYesNo) = vbNo Then Exit Sub
If Weekday(Date) = vbWednesday Then Sheets("Sheet1").[H50].Value = [H50].Value + TimeSerial(0, 12, 0)
End Sub
Eventjes afwachten wat TS antwoordt.