Why not just insert this line, as shown. Works for me.

    Range("Invoice_Date").Formula = "=Today()"
    Worksheets("Invoice").Calendar1.Visible = True ' add this line
 
    'Reactivate the protection. (No password required)