2000と2003のマクロの構成に違いありますか?
2000でマクロを作成し正常に使用していたのですが、2003に変更後、一部エラーが出るようになってしまいました。
------------------------------------------------
ActiveCell.SpecialCells(xlLastCell).Select
cend = ActiveCell.Row
Dim p As Variant
Dim re As Integer
re = MsgBox("担当者のみです。実行しますか?", vbYesNo + vbQuestion + vbDefaultButton2)
If re = vbYes Then
p = Application.InputBox(Prompt:="送信する月を入力。 (例:10月の場合) 10/ (半角)", Type:=2)
If p = False Then Exit Sub
'指定以外を非表示
For i = 2 To cend
If InStr(1, Cells(i, 2), p, 1) > 0 Then
GoTo pas1
'ElseIf InStr(1, Cells(i, 2), "12/", 1) > 0 Then
' GoTo pas1
Else
Rows(i).EntireRow.Hidden = True
End If
pas1:
Next
Else
Exit Sub
End If
'表示行選択
Range(Cells(1, 1), Cells(cend, 15)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
'シ-ト"mySheetA"を追加しそこに貼り付け
Sheets.Add.Name = "新規"
ActiveSheet.Paste
'Range("C1").Select
End Sub
------------------------------------------------
以上のようなマクロです。
最初の部分の“cend”あたりで引っかかってしまうようです。どなたかお願いします。