From stnkynts' code, change to

MsgBox ("You must enter a numeric value in " & rCell.Offset(0, 1).Address(False, False))