Just a sample of some of the ways you can capture the current date, time filename, worksheet name and other associated data within Microsoft Excel.
[color green]Samples Appear like This[/color]
[highlight]Actual Code or Formula Appears Like This[/highlight]
[color green]15/4/2004 14:23[/color]
[Highlight]=NOW()[/highlight]
[color green]April 15, 2004[/color]
[Highlight]=TEXT(NOW(),"mmmm dd, yyyy")[/highlight]
[color green]April 15, 2004 - 14:23[/color]
[Highlight]=TEXT(NOW(),"mmmm dd, yyyy - hh:mm")[/highlight]
[color green] 2:23 p.m. April 15, 2004[/color]
[Highlight]=" "&RIGHT(" "&FIXED(IF(HOUR(NOW())=0,12,IF(HOUR(NOW())>12,HOUR(NOW())-12,HOUR(NOW()))),0,TRUE),2)&":"&RIGHT("00"&FIXED(MINUTE(NOW()),0,TRUE),2)&IF(HOUR(NOW())<12," a.m."," p.m.")&" "&CHOOSE(MONTH(NOW()),"January","February","March","April","May","June","July","August","September","October","November","December")&" "&RIGHT("00"&FIXED(DAY(NOW()),0,TRUE),2)&", "&FIXED(1900+(YEAR(NOW())-1900),0,TRUE)[/highlight]
[color green]April 15, 2004 2:23 p.m.[/color]
[Highlight]=CHOOSE(MONTH(NOW()),"January","February","March","April","May","June","July","August","September","October","November","December")&" "&RIGHT("00"&FIXED(DAY(NOW()),0,TRUE),2)&", "&FIXED(1900+(YEAR(NOW())-1900),0,TRUE)&" "&RIGHT(" "&FIXED(IF(HOUR(NOW())=0,12,IF(HOUR(NOW())>12,HOUR(NOW())-12,HOUR(NOW()))),0,TRUE),2)&":"&RIGHT("00"&FIXED(MINUTE(NOW()),0,TRUE),2)&IF(HOUR(NOW())<12," a.m."," p.m.")[/highlight]
[color green]2:23 PM[/color]
[Highlight]=TEXT(NOW(),"[$-409]h:mm AM/PM;@")[/highlight]
[color green]2:23 PM April 15, 2004[/color]
[Highlight]=TEXT(NOW(),"[$-409]h:mm AM/PM;@")&" "&TEXT(NOW(),"mmmm d, yyyy")[/highlight]
[color green]April 15, 2004 2:23 PM[/color]
[highlight]=TEXT(NOW(),"mmmm dd, yyyy")&" "&TEXT(NOW(),"[$-409]h:mm AM/PM;@")[/highlight]
[color green]April 15: 2004 2:23:53 PM[/color]
[highlight]=TEXT(NOW(),"mmmm dd, yyyy")&" "&TEXT(NOW(),"[$-409]h:mm:ss AM/PM;@")[/highlight]
[color green]13/4/2004 14:18[/color]
[highlight] Sheets("DWG_02").Range("VBA_Time") = Now()[/highlight]
[color green]7/4/2004 15:21[/color]
[highlight][/highlight]
[color green]Worksheet Name[/color]
[highlight]=MID(CELL("filename",A13),FIND("]",CELL("filename",A13))+1,255)[/highlight]
[color green]Workbook Name[/color]
[highlight]=MID(CELL("FILENAME",F23),FIND("[",CELL("FILENAME",F23))+1,FIND("]",CELL("FILENAME",F23))-FIND("[",CELL("FILENAME",F23))-1)[/highlight]
[color green]Workbook Pathname[/color]
[highlight]=MID(CELL("FILENAME",F26), 1,FIND("[",CELL("FILENAME",F26))-1)[/highlight]
[color green]Workbook Pathname with Workbook Filename Included[/color]
[highlight]=MID(CELL("FILENAME",F27), 1,FIND("]",CELL("FILENAME",F27)))[/highlight]
[color green]Workbook Pathname with Workbook Filename and Worksheet Included[/color]
[highlight]=CELL("FILENAME",F30)[/highlight]
![[colorface] [colorface] [colorface]](/data/assets/smilies/colorface.gif)
Hope those few pointers help someone
![[colorface] [colorface] [colorface]](/data/assets/smilies/colorface.gif)