If Date question

[Pinaceous]

Hi All,

I'm working with this code below that I've pasted into Sheet1 of my workbook:

Private Sub Workbook_Expired()
 
    With ThisWorkbook.Sheets("Sheet1")
        If Date > (.Range("D3") + 3) Then
            
   
 MsgBox "This Sheet has expired!"
   
        End If
    End With
 
End Sub

I'd like to add this code to include:

If IsEmpty(Sheet1.Range("D3").Value) Then [QUOTE]Do nothing[/QUOTE]

If someone can help me, I'd appreciate it!

Thanks,
Pinaceous

 

[My Aswer Is This]

Try this:

Private Sub CommandButton1_Click()
'Modified 4-2-18 9:40 PM EDT
    With ThisWorkbook.Sheets("Sheet1")
        If IsEmpty(Sheet1.Range("D3")) Then: Exit Sub
        If Date > .Range("D3") + 3 Then MsgBox "This Sheet has expired!"
    End With
 
End Sub

 

[Pinaceous]

Many thanks My Aswer Is This !!

That helped a lot.

- Paul

 

[My Aswer Is This]

Many thanks My Aswer Is This !!

That helped a lot.

- Paul

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.