Solved: How do we test for a filtered row in vba

[acw]

Hi

how about

[vba]
Sub calcrange()
set TargetRange = Selection.SpecialCells(xlCellTypeVisible)

For Each ce In TargetRange
cell.Calculate
Next TargetRange
End Sub
[/vba]


Tony