VBA 実行時エラー1004 range・・・
【VBA 実行時エラー1004 rangeメソッドは失敗しました。globalオブジェクト】
Excel Book内のあるシートで、
【数量の入っていない行を非表示にする】
【それを解除して全表示にする】
という二つのマクロを使用しています。
このシートのシート名を変更したところ、上記のエラーが出るようになってしまいました。
シート名をもとに戻せば出なくなります。
当方、VBAには詳しくないので、シート名を変えてもこのエラーが出なくなる方法を考え付きません。
エラーからデバッグを表示すると下記記述の窓が開きました。
＝＝＝ここから＝＝＝
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Application.Goto Excel.Range(Target.SubAddress), True
End Sub
＝＝＝ここまで＝＝＝
『Application.Goto Excel.Range(Target.SubAddress), True』の部分が黄色になっていて、その中の『Target.SubAddress』にカーソルを合わせると、
『Target.SubAddress=”（変更前のシート名）”』がポップアップします。
どこかでシート名の変更をすればいいのだろう、という事は察するのですが、それをどうやったらいいのかがわかりません。
使っているマクロの内容は下記です。
＝＝＝＝＝
【数量の入っていない行を非表示にするマクロ】
Sub まとめ()
'
' まとめ Macro
ActiveSheet.Range("$A$4:$T$2000").AutoFilter Field:=9, Criteria1:="<>"
Range("B2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
＝＝＝＝＝
【それを解除して全表示にするマクロ】
Sub 解除()
'
' 解除 Macro
ActiveSheet.Range("$A$4:$T$2000").AutoFilter Field:=9
Range("B2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
＝＝＝＝＝
どこをどうやったらいいのでしょうか。
教えていただけませんでしょうか。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
お礼
imogasi様 回答をありがとうございました。 連絡が遅れて申し訳ありませんでした。 属性変更で出なくなりました。 何せExcel2003から行き成りExcel2010に変更になったので戸惑うこと多いです。 ありがとうございました。