DaysRemaining MsgBox

Greetings,
Open enclosed file and run following macro in order to understand what Macro1 is doing.

Sub Macro1()
DaysRemaining = Range("AC34") - Date
Select Case DaysRemaining
    Case Is = 1: MsgBox Prompt:="1 days left."
    Case Is = 2: MsgBox Prompt:="2 days left."
    Case Is = 3: MsgBox Prompt:="3 days left."
    Case Is = 4: MsgBox Prompt:="4 days left."
    Case Is = 5: MsgBox Prompt:="5 days left."
    Case Is = 6: MsgBox Prompt:="6 days left."
    Case Is = 7: MsgBox Prompt:="7 days left."
    Case Is = 8: MsgBox Prompt:="8 days left."
    Case Is = 9: MsgBox Prompt:="9 days left."
    Case Is = 10: MsgBox Prompt:="10 days left."
End Select
End Sub

I want to change above macro to below macro.
Red line need to be corrected.

Sub Macro1()
DaysRemaining = "=MIN(AC2:AC29)" - Date
Select Case DaysRemaining
    Case Is = 1: MsgBox Prompt:="1 days left."
    Case Is = 2: MsgBox Prompt:="2 days left."
    Case Is = 3: MsgBox Prompt:="3 days left."
    Case Is = 4: MsgBox Prompt:="4 days left."
    Case Is = 5: MsgBox Prompt:="5 days left."
    Case Is = 6: MsgBox Prompt:="6 days left."
    Case Is = 7: MsgBox Prompt:="7 days left."
    Case Is = 8: MsgBox Prompt:="8 days left."
    Case Is = 9: MsgBox Prompt:="9 days left."
    Case Is = 10: MsgBox Prompt:="10 days left."
End Select
End Sub

Best regards.