I have multiple ranges in a spreadsheet. The problem is I want to define
them, and use them in a function in vba. I do not want the cells that are
zero or smaller to be included in the range when the range is being used in
the function. I was wondering if it is possible to say like if range(A1:B200)
> 0 then range(A1:B200) = rngtemp. Can someone help? Thanks

Sub range_reducer()
Dim r1 As range, r2 As range
Set r1 = range("A1:B200")
Set r2 = Nothing
For Each r In r1
If r.Value > 0 Then
If r2 Is Nothing Then
Set r2 = r
Else
Set r2 = Union(r, r2)
End If
End If
Next

MsgBox (r2.Address)
End Sub

Starting with r1, we build r2 to contain only the positives.
--
Gary''s Student
gsnu200711

Sweet. Thank you very much.

"Gary''s Student" wrote:

> Sub range_reducer()
> Dim r1 As range, r2 As range
> Set r1 = range("A1:B200")
> Set r2 = Nothing
> For Each r In r1
> If r.Value > 0 Then
> If r2 Is Nothing Then
> Set r2 = r
> Else
> Set r2 = Union(r, r2)
> End If
> End If
> Next
>
> MsgBox (r2.Address)
> End Sub
>
> Starting with r1, we build r2 to contain only the positives.
> --
> Gary''s Student
> gsnu200711
>