Activesheet.Selection error?

[PATSYS]

Hi all,

Can somebody tell me what is wrong with this code?

Sub round_formulas()

Dim c As Range
Dim f As String

    For Each c In ActiveSheet.Selection
    f = c.Formula
    c.Formula = "=ROUND(" & Right(f, Len(f) - 1) & ",1)"
    Next c

End Sub

I can see the debug is pointing at the line:

For Each c In ActiveSheet.Selection

But, what is wrong with that line?

 

[xenou]

Possibly Selection is not really a sheet property but a "global" property of the application object (just guessing -- there might be an Application.Selection).

In any case, I think this would work:
For Each c In Selection

ξ

 

[PATSYS]

Thanks Xenou, I wil ltry that.