Sheetの選択行の複数列を空白に

質問

RowSurceでリストボックスにS5:AB21の範囲を表示させているのですが、下の式だSheetの選択行全体のセルが、空白になってしまいますので選択行の列のS:ABの範囲だけを空白にしたいのですが、教えてください。

'削除の処理
Dim 選択行 As Integer
For 選択行 = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(選択行) Then
Rows(選択行 + 5) = ""
End If

Windows7 Office2010

回答No.1

watabe007 · ベストアンサー

こんばんは、
Range("S5:AB21").Rows(選択行 + 5) = ""

お礼

重ね重ねありがとうございます。ご回答とおりでした。

回答No.2

watabe007

Range("S5:AB21").Rows(選択行 + 1) = ""
ですね

お礼

早速のご回答ありがとうございます。初歩的な質問で申し訳ありません。書籍＆ネットであれこれ調べていたのですが、勉強不足は否めませんでした。本当に感謝しています。