Excel VBAを利用して複数セルを選択した場合、値があるものだけを変数に代入したい

最近の書き込み件数：今日 0件、昨日 0件
未読分：2件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#2 2015年2月6日(金)00時59分
From: トライアル

返事削除変更

これでどうですか？
選択した範囲内をループさせています。

Sub Sample()
Dim MyRange As Range, MyStr As String
For Each MyRange In Selection
If IsEmpty(MyRange ) = False Then
MyStr = MyStr & MyRange .Value & ","
End If
Next
If Len(MyStr) > 0 Then MsgBox "集めた値は、" _
& vbCrLf & vbCrLf & Replace(MyStr, ",", vbCrLf)
End Sub

Message#1 2015年2月6日(金)00時13分
From: きゃっし

返事削除変更

Excel VBAを利用して複数セルを選択した場合、値があるものだけを変数に代入したいと考えています。

例えば、いくつかのセルの塊を選択した場合selectionコレクションで選択します。
その選択した中には空白のセルも含まれていますが、

For Each s In theRange

next

でまわすとその空白のセルまで変数に代入されてしまいます。

変数のデータ型はVariant型でもRange型でもどちらでも問題ないのですが、空白だけはさけたいと思っています。

どのように対策したらよろしいでしょうか？