Computing with dates

[alonzo3]

I am still trying to compute the number of
days between 2 dates. I am able to do so on
a NEW worksheet, but for the life of me, I
can not do so on an EXISTING worksheet. I am
trying to compute the number of days between
the current date minus 1/1/1995. Don't know why I can do it on a NEW work sheet, but not on an EXISTING worksheet. I have tried some of the responses to my original posting to no avail. Thanks Al N.

[Al Chara]

What are you getting as an answer on an existing worksheet?

[Tom Schreiner]

Private Sub Worksheet_Activate()
'Right click on the sheet tab at the bottom
'and select 'View Code' At the top left
'make sure the dropdown
'says 'Worksheet'
'If not then click on the down arrow and
'select 'Worksheet'
'Copy and paste this exactly as it is shown
'here.
'Replace A1 shown below with the cell
'which you wish to display
'the number of days displaced between now
'and 1/1/1995
'Every time you open this worksheet the
'number will be
'refreshed. There are several other options
'but I prefer
'to use VB code instead of formulas
Dim ShowDaysInThisCell As String
ShowDaysInThisCell = "A1" '<< Replace A1
'if necc. but leave the quotes
ActiveSheet.Range(ShowInThisCell).Value = _
DateDiff("d", #1/1/1995#, Now)
End Sub

[Tom Schreiner]

Private Sub Worksheet_Activate()
'Right click on the sheet tab at the bottom
'and select 'View Code' At the top left
'make sure the dropdown
'says 'Worksheet'
'If not then click on the down arrow and
'select 'Worksheet'
'Copy and paste this exactly as it is shown
'here.
'Replace A1 shown below with the cell
'which you wish to display
'the number of days displaced between now
'and 1/1/1995
'Every time you open this worksheet the
'number will be
'refreshed. There are several other options
'but I prefer
'to use VB code instead of formulas
Dim ShowDaysInThisCell As String
ShowDaysInThisCell = "A1" '<< Replace A1
'if necc. but leave the quotes
ActiveSheet.Range(ShowInThisCell).Value = _
DateDiff("d", #1/1/1995#, Now)
End Sub