Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
need a macro
Hello
I put htis in worksheet functions also but I think it should have been here. sorry I hope some one can help me with this. I have a work book with 52 sheets in it. each sheet represents a week of the year with the tab being labeled as the last day of the week ( 1-1-2005 )ect. which is saturday. cell a10 on all the sheets is saturday I would like a macro that would put the dates on all 52 sheets so that a10 matches each sheet tab going backwards to a4 which would be the sunday before. ( desending ) this is the macro that I am trying to make work but it has an error I can't figure out. Private Sub Workbook_Open() Dim wks As Worksheet For Each wks In ThisWorkbook.Worksheets If CDate(wks.Name) 0 Then wks.Range("A10").Value = CDate(wks.Name) For i = 6 To 1 Step 1 wks.Range("A10").Offset(i, 0).Value = CDate (wks.Name) + i Next End If Next wks End Sub Thanks in advance Steve .. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro recorded... tabs & file names changed, macro hangs | Excel Worksheet Functions | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
My excel macro recorder no longer shows up when recording macro | Excel Discussion (Misc queries) | |||
Macro needed to Paste Values and prevent Macro operation | Excel Discussion (Misc queries) | |||
Start Macro / Stop Macro / Restart Macro | Excel Programming |