How can I make to open this every day 3 of every month on every day
automatic when I open sheet3

and also how can I make this to open every Monday of every week

Thanks in advance



Sub showContentcell()
'MsgBox "Cell A1 = " & Range("A1").Text
MsgBox "Dia Domingo" _
& Chr(13) & Range("F10").Text _
& Chr(13) & Range("F11").Text _
& Chr(13) & Range("F12").Text _
& Chr(13) & Range("F13").Text _
& Chr(13) & Range("F14").Text _


End Sub