cell value

[geebee]

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

 

[OssieMac]

Hello Geebee

If Target.Cells.Count > 1 Then Exit Sub

 

[Per Jessen]

Hi

Inset this line before the code you posted:

If Target.Cells.Count >1 then Exit Sub

Regards,
Per