| Home |
| Search |
| Today's Posts |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete All Q
try using .Clear instead of .ClearContents......... but i'm not sure
it'll remove the comments. :) susan On Mar 25, 4:40*am, Seanie wrote: On Mar 21, 2:25*pm, Mike H wrote: 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 One thing on above is that border lines and comments remain after "ClearContents", how can I clear everything? |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
| Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
| Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
| Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
| Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below | Excel Programming | |||
Threaded Mode
