In article , Claus Busch
writes

Sub WriteDate()
Dim rngC As Range

For Each rngC In Selection
rngC.Offset(, -1) = IIf(Len(rngC) 0, Date, "")
Next
End Sub

You can create a shortcut to run the macro. Handling would be easier with shortcut


Regards
Claus B.


Hi Claus

Yes , this is a good solution. Thanks.

It does put the date in all cells of the selected range , rather than
only in the cell to the left , but this is accommodated by selecting a
single cell rather than the pasted range.

Thanks again Claus.



Best Wishes