表をテーブルに変換するマクロ(Excel2007)
お世話になります。カテゴリ違いでしたらご指摘ください。
Excel2007で範囲A1:D8にテーブル書式を設定するマクロを作成し、作業中のブックに保存しました。
Sub テーブル書式()
'
' テーブル書式 Macro
'
'
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$8"), , xlYes).Name = _
"テーブル1"
Range("テーブル1[#All]").Select
ActiveSheet.ListObjects("テーブル1").TableStyle = "TableStyleMedium21"
End Sub
このマクロを別シートで実行しようとすると「実行時エラー‘1004’RangeクラスのSelectメソッドが失敗しました。」と表示されます。
表を書式付きのテーブルに変換するとき自動的にテーブル名がつけられ、それが既に記述されているテーブル名と異なるため発生するエラーかと思うのですが、VBAの知識が乏しくどのように修正すればいいのか分からず困っております。
ブック内のどのシートでもMedium21の書式付きテーブルに変換できるようにするにはどうすればよいか教えてください。
補足要求などあればご指摘ください。
よろしくお願いいたします。
お礼
ありがとうございます ”名無しの権兵衛” が正解のようですが もうしばらくいろいろ検討したいと思います。