テスト29

Sub Hani()

Dim r As Variant
Dim r2 As Variant
Dim msg As String

msg = "以下のセルが空欄になっています。確認をお願いします。" & vbCrLf & vbCrLf
Set r = ThisWorkbook.Sheets("テスト").Range("B5:B9")

For Each r2 In r

    If r2.Value = "" Then

        msg = msg & r2.Offset(0, -1).Value & "(" & Replace(r2.Address, "$", "") _
              & "セル)" & vbCrLf

    End If

Next r2

If InStr(msg, "(") > 0 Then

    MsgBox msg, vbCritical

End If

End Sub