Delete All Q
Hmmm,
I forgot your message box
Private Sub Workbook_Open()
If Date Sheets("Sheet4").Range("AA1").Value + 14 Then
Sheets("Sheet1").UsedRange.ClearContents
Sheets("Sheet2").UsedRange.ClearContents
Sheets("Sheet3").UsedRange.ClearContents
MsgBox "File expired", vbInformation
End If
End Sub
Mike
"Mike H" wrote:
OOPS,
wrong way around, try this
Private Sub Workbook_Open()
If Date Sheets("Sheet4").Range("AA1").Value + 14 Then
Sheets("Sheet1").UsedRange.ClearContents
Sheets("Sheet2").UsedRange.ClearContents
Sheets("Sheet3").UsedRange.ClearContents
End If
End Sub
Mike
"Mike H" wrote:
Hi,
Maybe this
Private Sub Workbook_Open()
If Date <= Sheets("Sheet4").Range("AA1").Value + 14 Then
Sheets("Sheet1").UsedRange.ClearContents
Sheets("Sheet2").UsedRange.ClearContents
Sheets("Sheet3").UsedRange.ClearContents
End If
End Sub
Mike
"Seanie" wrote:
What code could would I use to do the following when a workbook is
opened:-
1) Delete Contents ALL in Sheet1; Sheet2 and Sheet3 IF Today() Range
value in AA1 Sheet4+14
2) After (1) above has been actioned a Message Box appears that shows
"File has expired"
Of course IF Today() <= Range value in AA1 Sheet4+14, then do nothing
apart from opening the workbook
|