Hi

Inset this line before the code you posted:

If Target.Cells.Count 1 then Exit Sub

Regards,
Per

On 5 Aug., 00:19, geebee (noSPAMs) wrote:
hi,

code is in worksheet selectionchange event. *only want the code to run if
ONLY 1 cell is clicked, not a range of more than more than 1 cell. *currently
have:

If Not Intersect(Target, Range("DATES_range")) Is Nothing Then
Dim selected_date1 As String
selected_date1 = Range(Target.Address).Value

thanks in advance,
geebee