Private Sub Workbook_Open() 자동 실행이 안됩니다

안녕하세요

아래 소스는  “DATA1” 시트에서 범위내의 날짜를 오늘 날짜와 비교하여 같거나 지났을 경우 해당 상품의 정보를 메시지 상자에 표시하도록 만들었습니다

버튼을 만들어서 실행하면 동작되는데, 엑셀 실행시 동작되도록 Private Sub Workbook_Open() 으로 하면 동작 되지 않습니다

왜 그럴까요? ㅠ

Private Sub Workbook_Open()

Dim rng As Range
Dim cell As Range
Dim today As Date
Dim msg As String
Dim isMsgShown As Boolean

today = Date
Set rng = Sheets("DATA1").Range("D2:D21")

For Each cell In rng
If cell.Value <= today Then
msg = msg & cell.Offset(0, -3).Value & "번 " & " 상품명 : " & cell.Offset(0, -2).Value & vbNewLine & "상품코드 : " & cell.Offset(0, -1).Value & vbNewLine & vbNewLine
isMsgShown = True
End If
Next cell

If isMsgShown Then
msg = Format(today, "yyyy-mm-dd") & vbNewLine & vbNewLine & "아래 상품의 기한이 만료 되었습니다" & vbNewLine & vbNewLine & msg
MsgBox msg
End If

End Sub