Range("_filterdatabase").Offset(1, 0).Resize(Range("_filterdatabase").Rows.Count - 1, Range("_filterdatabase").Columns.Count). _
SpecialCells(xlCellTypeVisible).Select
MsgBox Range("_filterdatabase").Offset(1, 0).Resize(Range("_filterdatabase").Rows.Count - 1, Range("_filterdatabase").Columns.Count). _
SpecialCells(xlCellTypeVisible).Address