VBA 400エラー 1004エラー
以下のVBAはセルのカット&ペーストをしたり、置換をするプログラムです。
しかし、EXCEL2003であれば通常に動作するのですが、
EXCEL2000だと400エラーや1004エラーが出てしまいます。
原因を探求するもよく分からなかったため、ご教示いただけば幸いです。
Sub 一ページ17名標準()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Range("A1").Select
Cells.Find(What:="No.2").Offset(-1, 36).Resize(3, 8).Insert Shift:=xlDown
Cells.Find(What:="No.2").Offset(-1, 2).Resize(3, 1).EntireRow.Delete
Rows("2:61").RowHeight = 21.75 '''行の幅 変更点
Cells.Find(What:="No.1").Offset(-1, 2).Resize(3, 1).EntireRow.Copy
Range("38:38").Insert '''No2見出し挿入カ所 変更点
Range("A39").Replace What:="No.1", Replacement:="No.2" '''No1→No2置換カ所 変更点
Cells.Find(What:="No.2").Offset(-1, 36).Resize(3, 8).Delete Shift:=xlUp
Cells.Find(What:="♯管理欄").Resize(3, 8).Activate ' ' '名字のエクセル関数の調整(全共通)
Selection.Cut
Range("AK63").Select
Selection.Insert Shift:=xlDown
Cells.Find(What:="♯管理欄").Resize(3, 8).Activate
Selection.Cut
Range("AK38:AS40").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub
宜しくお願いします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_1_thumbnail_img_sm.png)
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
補足
FAT16でフォーマットしましたがダメでした