Excel change case add in
In article ,
"Chip Pearson" wrote:
That has bitten me in the ass a few times. I think the design decision to
default to the whole sheet is one of the dumber decisions MS has made for
Excel in quite a while.
Agreed - in my apps the only way I use SpecialCells on a Selection
(which is admittedly very rarely) is to wrap it with the Intersect
method - usually in a function, so I don't forget, e.g.:
Public Function SelectionSpecialCells( _
ByVal nType As Long, _
Optional ByVal vValue As Variant = Empty) As Range
Dim rTest As Range
If TypeOf Selection Is Excel.Range Then
With Selection
If IsEmpty(vValue) Then
Set rTest = Intersect(.Cells, .SpecialCells(nType))
Else
Set rTest = Intersect(.Cells, .SpecialCells(nType, vValue))
End If
End With
End If
Set SelectionSpecialCells = rTest
End Function
|