スキルアップ・問題解決なら、モーグにおまかせ！

組織で多くの人が使うファイルはいつのまにか書式が乱れます。
そのためＯＰＥＮ時に自動的に元の正しい書式に戻すため、テンプレートの書式を
書式貼り付けするようにしていますが、下記のようなコードで貼り付け先の選択状態を
解除しようとして入れたSelect文のところで「RangeクラスのＳＥＬＥＣＴに失敗・・」
というエラーメッセージが出ます。
これを外すと書式コピー自体は正常に動作終了しますが、貼り付け先が選択状態のままです。
何が悪いのか？　別の方法はあるのか？
教えていただけると嬉しいです。よろしくお願い致します。
 
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

こんにちは。
 
Rangeオブジェクトに対し、Select または Activeメソッドを発行する為には
そのRangeオブジェクトの所属する WorkSheetがアクティブになっている必要があります。
 
shtA.cells(1,1).select
の段階で、shtA がアクティブになっていませんよね。
ワークシートをアクティブにしてから Selectしましょう。

>別の方法はあるのか？
 
Application.Goto shtA.cells(1)
 
としてもいいかもです。

テンプレートがブックの場合
 
For〜Nextの前に開きましょう。
その後、自ブックをActivate
 
※For〜Nextの中では、開かないようにしましょう。
 
そして、複写元のシートはSELECTしないことです。
 
テンプレ^−トが、シートの場合
複写元のシートはをSELECTしなくても処理可能です。
 
できれば、SELECTしない方法をお勧めします。
 

早速のご回答ありがとうございました。
そうか、シートがActiveでないとSelectできないんですね？
 
私も普段Selectとかはあまり使わないようにしていますが、この場合はシートを
ActivateしておかないとSelectできないんですね。
ありがとうございました。
 
Application.GoTo shtA.cells(1)
これは知りませんでした。
勉強になりました。