How to unselect selected cell/row?

I've recently started using Office 2013. But now I cannot work with Excel. Most important feature is gone.
I'm often selecting cell/rows for further analysis and copying, but when I have to select tens of them it can happen that I will select something wrong.
(I'm selecting using CTRL and mouse Click). But when I want to unselect my mistake I cannot. There is no such feature in Excel 2013? How come feature that is available everywhere is not in Excel 2013. Maybe I'm wrong and missing something, but I cannot unslect single cell/row without loosing whole selection.
 

Question Info


Last updated November 1, 2018 Views 59,536 Applies to:
Answer
I've recently started using Office 2013. But now I cannot work with Excel. Most important feature is gone.
I'm often selecting cell/rows for further analysis and copying, but when I have to select tens of them it can happen that I will select something wrong.
(I'm selecting using CTRL and mouse Click). But when I want to unselect my mistake I cannot. There is no such feature in Excel 2013? How come feature that is available everywhere is not in Excel 2013. Maybe I'm wrong and missing something, but I cannot unslect single cell/row without loosing whole selection.


This has been the case with all versions of Excel.

 

Chip Pearson has a couple of macros that you can use to unselect a cell or groups of cells.

 

Sub UnSelectActiveCell()
Dim rng As Range
Dim FullRange As Range
'Chip Pearson
If Selection.Cells.Count > 1 Then
    For Each rng In Selection.Cells
        If rng.Address <> ActiveCell.Address Then
            If FullRange Is Nothing Then
                Set FullRange = rng
            Else
                Set FullRange = Application.Union(FullRange, rng)
            End If
        End If
    Next rng

    If FullRange.Cells.Count > 0 Then
        FullRange.Select
    End If
End If

End Sub


Sub UnSelectActiveArea()
'Chip Pearson
Dim rng As Range
Dim FullRange As Range
Dim Ndx As Integer
If Selection.Areas.Count > 1 Then
    For Each rng In Selection.Areas
        If Application.Intersect(ActiveCell, rng) Is Nothing Then
            If FullRange Is Nothing Then
                Set FullRange = rng
            Else
                Set FullRange = Application.Union(FullRange, rng)
            End If
        End If
    Next rng
    FullRange.Select
End If

End Sub

 

Gord

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.