以下のコードを使用して、ブックを保存する前にセルに情報があることを検証しています。プログラムは正常に動作しますが、セル アドレス ($P$14) が表示されます。セルの定義名 (CompanyName) を表示したい。
For Each myRange In .Range("P14,P20,P23,P26,P29,P32,P33,P39")
If myRange.Value = 0 And myRange.Offset(0, 0) = "" Then
MsgBox ("You must make an entry in ") & myRange.Offset(0, 0).Address
Cancel = True
End If
Next myRange