[[20170327120202]]　『インデックスに有効範囲がりま線せん　エラーにつ』（まゆみ）　ページの最後に飛ぶ

『インデックスに有効範囲がりま線せん　エラーについて』（まゆみ）

いつも大変お世話になっております

教えていただけたらうれしいです
2つのブックが開いてる状態で
マクロの組んでいないブックのシートをコピーして
マクロの組んでいるブックのシートに貼り付けるのですが
ThisWorkbook.Sheets("gloviacheng").Range("A1")
上記部分でインデックスエラーが出てしまいます

どの様にすればいいのでしょうか
宜しくお願いいたします

Sub ActiveBookChange()

Dim WB As Workbook

For Each WB In Workbooks

   If ThisWorkbook.Name <> WB.Name Then

       WB.ActiveSheet.Range("A1:JH" & Range("JH" & Cells.Rows.Count).End(xlUp).Row).Copy ThisWorkbook.Sheets("gloviacheng").Range("A1")

       WB.Close False

   End If

End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 やま勘ですけど、左半分の方の問題じゃないですか？ (もしくは、gloviacheng　のスペルミスか。)

  With WB.ActiveSheet
       .Range("A1:JH" & .Range("JH" & .Cells.Rows.Count).End(xlUp).Row).Copy ThisWorkbook.Sheets("gloviacheng").Range("A1")
  End With

（半平太） 2017/03/27(月) 12:23

半平太様

ご教示有難う御座います

 (もしくは、gloviacheng　のスペルミスか。)

シート名に空白がありました

是で動くようになりました
（まゆみ） 2017/03/27(月) 13:20

コメント返信：

[ 一覧(最新更新順) ]

[[20170327120202]] 『インデックスに有効範囲がりま線せん エラーにつ』（まゆみ） ページの最後に飛ぶ

[[20170327120202]]　『インデックスに有効範囲がりま線せん　エラーにつ』（まゆみ）　ページの最後に飛ぶ