組織で多くの人が使うファイルはいつのまにか書式が乱れます。
そのためOPEN時に自動的に元の正しい書式に戻すため、テンプレートの書式を
書式貼り付けするようにしていますが、下記のようなコードで貼り付け先の選択状態を
解除しようとして入れたSelect文のところで「RangeクラスのSELECTに失敗・・」
というエラーメッセージが出ます。
これを外すと書式コピー自体は正常に動作終了しますが、貼り付け先が選択状態のままです。
何が悪いのか? 別の方法はあるのか?
教えていただけると嬉しいです。よろしくお願い致します。
For Each shtA In ThisWorkbook.Worksheets
:
:
Sheets("Tmplt").Range("A1:M100").Copy
shtA.Range("A1").PasteSpecial (xlPasteFormats)
Application.CutCopyMode = False
shtA.cells(1,1).select ---->ここでひっかかる
Next