Sum Visible

[MattShoreson]

I have an addin which has a menu item calling a procedure summing al
visible cells in a selection.

I am having problems setting the range/selection to be active withi
the proc.

Dim sum_range As Object
Set sum_range = Selection
MsgBox sum_range.Column.Count

Does anyone have any ideas

 

[MattShoreson]

It's ok.

Was using column instead of columnS!!!!

 

[Harald Staff]

Hi Matt

Sub test()
Dim sum_range As Range
Set sum_range = Selection.SpecialCells(xlCellTypeVisible)
MsgBox Application.Sum(sum_range)
End Sub

HTH. Best wishes Harald