The Daily Dose

Private Sub Workbook_Open()
Set App = Application
End Sub
 

Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Deselect Target
End Sub

Sub Deselect(Target As Range)
    Dim lngCount As Long
    Dim lngLast As Long
    Dim strTarget As String
    Dim strOld As String
    Dim strNew As String

    ‘This code allows you to deselect cells when CTRL + Clicking
    strTarget = Target.Address
    lngCount = UBound(Split(strTarget, ","))
    If lngCount > 0 Then
        strNew = Split(strTarget, ",")(lngCount) & ","
        ‘Need to add the "," as a delimiter so we don’t incorrectly identify say $A$1 and $A$10 as the same
        strOld = Left(strTarget, Len(strTarget) – Len(strNew)) & ","
        If InStr(strOld, strNew) > 0 Then
            If strOld <> strNew Then
                strOld = Replace(strOld, strNew, "")
            End If
            If Right(strOld, 1) = "," Then strOld = Left(strOld, Len(strOld) – 1)
            Application.EnableEvents = False
            Range(strOld).Select
            Range(Split(strOld, ",")(UBound(Split(strOld, ",")))).Activate
            Application.EnableEvents = True
        End If
    End If
End Sub