Sorry John, Had to go out.. for a while.
should of mentioned the sub goes in the **workbook** code section (not for
the worksheet)

the part:
Sheets("Access Log").Visible = xlVeryHidden ' *** Hides the Access Log
worksheet
this means the sheet can not be unhidden from the menu's.
Instead go to MS visual basic editor, click the worksheet on the right to
select it.
press F4(to open the properties window), at the bottom you will see
visibility.
you can make it either, xlVisible, xlHidden or xlVeryHidden.
the later stops everyday users from viewing/changing the sheet.

Change this line of code, to the format you would like displayed:
Sheets("Access Log").Cells(x + 2, 2) = Format(Now(), "ddd - dd/mm/yy at
hh:mm:ss ampm")
' **** The value of function Now()i.e. todays date/time formated to
everything within the quotes.

Hope this Helps. Andrew


"John" wrote in message
...
| Got it I was modifying the same code I had in a different worksheet ...
| doooh
|
| "John" wrote in message
| ...
| Andrew got your code working fully and must say its a neat bit of code.
| Only one thing I'm trying to change the date format and am having no
luck,
| it visually returns the following
|
| Sun-25/Sep/0505: 43: 37PM
|
| How can I get it to look like this-
|
| Sun - 25/09/05 at 05:43:37 pm
|
| I've tried changing the code but it doesn't seem to matter, it still
comes
| out like the first one