Replies

hi,
I use this one to give an accurate age. (in the example A6 is the birthdate)

=DATEDIF(A6,NOW(),”y”) & “y, “& DATEDIF(A6,NOW(),”ym”)&”m, “& DATEDIF(A6,NOW(),”md”) & “d”

This displays as: 43y, 0m, 16d

HTH

Regards
Farside

Andrew,
That works just the way I wanted. Thank you very much. I never even came close with my attempts!

The only snagette, which took a few minutes to figure out, was that I only had one sheet and so the event would not work on opening, although it was perfect with a press of F5. I now have two sheets in the workbook:-))). Perfect!

Once again, thank you.
Regards,
Farside

LegareColeman,
I don’t think the 3% will stretch that far, so how about a Crimbo card and a big mention for you and Woody’s at work

Dear All,
Just to let you know; I was in to work early and put the code in and it works fine. The wb opens at the month tab and the cell C8 is selected (that’s the Boss’s part of the sheet by the way!)Of course, with all the planning ahead these days, the monthly sheets for 2002 are a different matter! I think a new wb is the way ahead.:-(

Regards,
Farside

Dear gwhitfield and Legare Coleman,
How large a slap on the back would you like, and for how long?
You are formally endowed with the title ‘Supreme Beings’.
GW, the ‘now’ change was the canine g******s. Thank you. Now I can go to bed.

All the best,
Farside.

Dear L G and gwhit, thanks for the quick response.(apologies for the abb.)
I have this in ThisWorkbook – (‘workbook’ and ‘open’)

Private Sub workbook_activate()
Range(“c8”).Activate
End Sub
‘for the cell they want, which is fine.
‘and your thoughts (below) for the correct tab, or current month.

Private Sub Workbook_Open()
Worksheets(Format(Today(), “mmm”) & ” 01″).Activate
End Sub
The snag is that it comes up with a compile error:
‘Sub or Function not defined.’, with the word ‘Today’ highlighted.
Any thoughts?; bearing in mind I am capable of mistakes.

Thank you.