エクセルＶＢＡで罫線を引きたいのですが

コマンドボタンを押すと、対応するＶＢＡが実行される
ところまでできたのですが

10行目のＡ1～Ｇ10まで、アンダーラインを引きたいのです

下記はそれらしいＶＢＡをコピーして実行したものです
これでは、各セルに二重線で縁取りされました
それを、アンダーラインを引きたいのですが、教えてください

For Each myRange In Worksheets(1).Range("A10:g10") '←（１）
myRange.Borders.LineStyle = xlDouble
Next myRange

できれば、For Each、なんか使わないでできると
ありがたいのですが
よろしくお願いします

No.1 ベストアンサー 回答者： merlionXX 回答日時： 2006/12/04 15:31

アンダーラインですか？罫線ですか？

一応、ボトムの罫線ということで回答します。

With Range("A10:G10").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

この回答へのお礼

やってみたらできました
ありがとうございました
できたら、上罫線もおしえてもらったら、ありがたいの
ですが
ありがとうございました

お礼日時：2006/12/04 15:40