Personal.xls macro syntax question 2

[mscallisto]

I currently have a Personal.xls file in
C:\Program Files\MicroSoft Office\Office11\xlstart\
and have a macro to place a path and filename in my headings.

Sub Set_Head_Foot()
  With ActiveSheet.PageSetup
    .LeftHeader = ""
    .CenterHeader = "&""Comic Sans MS,Italic""&10" & ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
    .RightHeader = ""
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""
  End With
End Sub

I would like to add another macro that would fill the cell I am currently in (any sheet) with the current date [when I hit CTRL & T].

I simply need some syntax assistance.

 

[PHV]

Something like this ?
ActiveCell = Date

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[RonRepp]

There are several ways you can do this:

Activecell.Value=Date

Or:

Activecell.FormulaR1C1="=Today()" 'Gives today's date.  CAUTION:  This changes each time the workbook is opened.

Or:

Activecell.Value = #1/1/2006#

I hope this helps.




Ron Repp

If gray hair is a sign of wisdom, then I'm a genius.

 

[mscallisto]

Thanks ... I figured it was that easy!!

How can I add a format to that so the date appears dd-Mth-yy?

e.g. 25-Jun-07

 

[PHV]

ActiveCell.NumberFormat = "dd-mmm-yy"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[mscallisto]

Very Much ... Baie Dankie

        ("`-''-/").___..--''"`-._        
         `6_ 6  )   `-.  (     ).`-.__.`)
         (_Y_*.)  ._   )  `._ `. ``-..-' 
       _..`--'_..-_/  /--'_.' ,'         
      (il), ''  (li),'  ((!.-'    

S.A.M.