try

Sub nextmonday()
If Weekday(Date) = 2 Then
mydate = Date
Else
mydate = Date + (9 - Weekday(Date))
End If
ActiveCell = mydate
End Su

--
Don Guillett
SalesAid Software

"Stan Halls" wrote in message
...
I have 7 files and each file rep a day, what i am after is a button that
when
pressed will insert the date into a cell
if we go with a monday file, if i open this file and press a button i need
the script to somehow give me the correct date for the current monday if
pressed on a monday or the next monday no matter which day after monday
the
button is pressed,
any ideas