how error-trap "no cells were found error"
I think you'll have to watch out for the error:
Option Explicit
Sub testm()
Dim rngToSum As Range
Dim dSum As Double
Set rngToSum = Nothing
On Error Resume Next
Set rngToSum = Selection.SpecialCells(xlVisible)
On Error GoTo 0
If rngToSum Is Nothing Then
dSum = 0
Else
dSum = Application.Sum(rngToSum)
End If
End Sub
======
Another option (I like Jim's better):
dSum = 0
on error resume next
dSum = Application.Sum(Selection.SpecialCells(xlVisible))
on error goto 0
Jim Thomlinson wrote:
Try this..
Dim rngToSum As Range
Dim dSum As Double
Set rngToSum = Selection.SpecialCells(xlVisible)
If rngToSum Is Nothing Then
dSum = 0
Else
dSum = Application.Sum(rngToSum)
End If
--
HTH...
Jim Thomlinson
"Ian Elliott" wrote:
Thanks for any help.
I have some code in my macro:
dSum = Application.Sum(Selection.SpecialCells(xlVisible))
but if there is nothing selected (at least visibly selected), I get an error
"Run-time error '1004': No cells selected."
Is there some kind of IF, like IF (Application.Sum...)=NULL or something so
my program doesn't terminate?
Thanks
--
Dave Peterson
|