Hi folks...
I need help from the expert out there.
I have an xls nutrition table that need to auto populate with dates
using a calendar instead of manually editing the date
See the macro code below
------------------------------------------
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 11/15/2005 by waiter
'
' Keyboard Shortcut: Ctrl+Shift+P
'
Range("A1").Select
ActiveCell.FormulaR1C1 = " Sunday 10-22-06"
Range("A6").Select
ActiveCell.FormulaR1C1 = " Monday 10-23-06"
Range("A11").Select
ActiveCell.FormulaR1C1 = " Tuesday 10-24-06"
Range("A16").Select
ActiveCell.FormulaR1C1 = " Wednesday 10-25-06"
Range("A21").Select
ActiveCell.FormulaR1C1 = " Thursday 10-26-06"
Range("A26").Select
ActiveCell.FormulaR1C1 = " Friday 10-27-06"
Range("A31").Select
ActiveCell.FormulaR1C1 = " Saturday 10-28-06"
Range("G8").Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""Times New Roman,Bold""&14WEEK OF OCTOBER 22
2006"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(0.25)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.25)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLegal
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Thanks.
Any help will be greatly appreciated


--
waiter11
------------------------------------------------------------------------
waiter11's Profile: http://www.excelforum.com/member.php...o&userid=34875
View this thread: http://www.excelforum.com/showthread...hreadid=546240