Option Explicit
Sub Merry_Christmas()
Dim lights
For each Day in Christmas period
If "You Can" = "You Will" Then
Time = happy
Exit For
End If
Next Day
If Rain exists then
MsgBox "Stay in and imbibe red wine"
Else
MsgBox "Go out and enjoy a drive"
End If
If "TV is in next room" Then
Application.Visible = False
on error "say sorry or exit"
End If
With Glass_in_Hand.AnimationSettings
.elbowBent = True
.LiftToPallet = True
.BecomeMerry = True
.DriveVehicle = False
End With
a Bang (Expect argument)
End Sub