View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
JE McGimpsey JE McGimpsey is offline
external usenet poster
 
Posts: 4,624
Default 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