767 :
ひよこ名無しさん:
表の選択範囲を一行追加するプログラムを始めて作ったのですが美味くいきません、、、
実行時エラー '9'
インデックスが有効範囲にありません。
と出ます。
Sheet2が資産推移というシート名だった場合なんて設定すればこのエラーでないのでしょうか教えてください。。。
誰かタシケテ。。。
Sub 一行追加()
Worksheets("sheet2").Names _
.Add Name:="資産推移表", RefersTo:="sheet2!a1:h53"
Worksheets("sheet2").Range("資産推移").Select
With Selection
.Offset(1, 0) _
.Resize(.Rows.Count + 1, .Columns.Count) _
.Select
End With
End Sub