Here is a ThisWorkbook_SheetSelectionChange event procedure (so it works on any sheet in the workbook) posted by snb here...
http://dailydoseofexcel.com/archives...e-of-the-same/
that lets you hold down the CTRL key while "selecting" a cell or range to deselect within a larger selected area. It works although it is not terribly fast for large selections (think selecting an entire column and then CTRL clicking the header cell... a comment I made in the cited blog article) but it does seem to work.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim j As Long, R_n As Range, R_p As Range, R_q As Range, cl As Range, y As Boolean
On Error Resume Next
If Target.Count > 1 And Target.Areas.Count > 1 Then
Set R_n = Target.Areas(Target.Areas.Count)
Set R_p = Target.Areas(1)
For j = 2 To Target.Areas.Count - 1
Set R_p = Union(R_p, Target.Areas(j))
Next
If Not Intersect(R_p, R_n) Is Nothing Then
y = Intersect(R_p, R_n).Address = Intersect(Target, R_n).Address
For Each cl In Target
If y * Not Intersect(cl, R_n) Is Nothing = 0 Then Set R_q = Union(R_q, cl)
If Err.Number <> 0 Then Set R_q = cl
Err.Clear
Next
R_q.Select
End If
End If
End Sub
Bookmarks