This assumes you have the date for the last day of the month desired entered
in cell b1
Sub FindlastDate()
x = Application.Match([b1], Columns(1), 1)
Cells(x, "e") = 111
End Sub

--
Don Guillett
SalesAid Software

"Phil" wrote in message
...
In column A i have dates listed every 7 days. Is it possible using a
formula
to go to the last date showing for every month and then enter a value in
column E for that date. The last listed date for each month is variable ,
for example..

20/07/04
27/07/04
03/08/04
10/08/04
17/08/04
24/08/04
31/08/04
07/09/04

Here i would like 27/07/04 , 31/08/04

Thanks