フィルターで絞り込まれた表の一部分を選択した後、
下記のイベントを発生させるとメッセージボックスが2回ループします。
なぜなんでしょうか？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim セル As Variant
For Each セル In Target.SpecialCells(xlCellTypeVisible)
MsgBox セル
Next

End Sub