Assuming that :
* YOUR LIST OF DATE are in a Range
* "to delete" means to clear the content of a cell containing Date
data
Sub DoSomething()
Dim MyRange as Range, Xel As Range
Dim LastWeekWednesday As Date
'--Please edit the code for your Range
Set MyRange = Sheets("Bla").Range("A2:A65533")
LastWeekWednesday = Date - Weekday(Date) - 3
For Each Xel In MyRange
If Xel.Value < LastWeekWednesday Then Xel.ClearContents
Next
End Sub
On May 6, 8:08 pm, Sundarvelan N <[email protected]> wrote:
> Hi Friends,
> Please help me to delete the date which are older than last week wednesday.
> Also i need a code to remove page breaks except the below recoded code
> ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
> Thanks
> N.Sundarvelan
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to [email protected]
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
