VBA エラー

質問

Sub 上下カット1()
Dim MyR As Range, MyMax As Integer, MyMin As Integer
Dim MX As Range, MN As Range
With ActiveSheet
MyMax = WorksheetFunction.Max(.Range("D15:P15"))
MyMin = WorksheetFunction.Min(.Range("D15:P15"))
For Each MyR In .Range("D15:P15")
If MyR.Value = MyMax Then Set MX = MyR
If MyR.Value = MyMin Then Set MN = MyR
Next
MX.Borders(xlDiagonalUp).LineStyle = xlContinuous
MN.Borders(xlDiagonalUp).LineStyle = xlContinuous
End With
With ActiveSheet
MyMax = WorksheetFunction.Max(.Range("D16:P16"))
MyMin = WorksheetFunction.Min(.Range("D16:P16"))
For Each MyR In .Range("D16:P16")
If MyR.Value = MyMax Then Set MX = MyR
If MyR.Value = MyMin Then Set MN = MyR
Next
MX.Borders(xlDiagonalUp).LineStyle = xlContinuous
MN.Borders(xlDiagonalUp).LineStyle = xlContinuous
End With
End Sub

を実行すると”オブジェクト変数またはWithブロック変数が設定されていません。”と出ます。
どうしたらいいですか？

回答No.1

mt2008 · ベストアンサー

こちらの環境(Excel2010)では正常に動きます。
提示のコードはご自身のVBAエディタらのコピペですか？
そうでないなら単純な入力ミスの可能性が高いです。

あれ？エラーの種類が違うってことはもしかしてru-0724とnakekoは別人物？

【ru-0724】
http://okwave.jp/qa/q8773730.html
http://okwave.jp/qa/q8773907.html

【nakeko】
http://okwave.jp/qa/q8773746.html
http://okwave.jp/qa/q8773920.html

お礼

申し訳ありません。
コピーしてそのまま添付しました。
このエラーのあと試行錯誤していたら、別のエラーが出たため、質問させていただきました。
紛らわしいことをしてしまい、大変申し訳ありません。
再度、入力し直してみたいと思います。
ありがとうございす。