ok i have been doing research on this and with the help of google groups with is what i have found:
On your personal.xls (or if u want put it in the workbook ur working on) file on the workbook_open put this code:
**********************************************************
Private Sub Workbook_Open()
With Application.CommandBars("Cell"
.Controls
With .Add(temporary:=True)
.Caption = "Unselect Active Cell"
.OnAction = ThisWorkbook.Name & "UnSelectActiveCell"
.BeginGroup = True
End With
With .Add(temporary:=True)
.Caption = "Unselect Active Area"
.OnAction = ThisWorkbook.Name & "!UnSelectActiveArea"
End With
End With
End Sub
*********************************************************
Then u put these in a module:
**************************************************
Sub UnSelectActiveCell()
Dim Rng As Range
Dim FullRange As Range
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()
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
******************************************************
Right click on the area or activecell and u will see that u now have the option to unselect
Tell me if u need more help
