Как сделать так, чтобы в переносном сообщении отображалось значение последней ячейки в столбце D?

Question

Sub test
    Dim XR As Long
    XR = Range("D" & Rows.Count).End(xlUp).row
    Carryon= MsgBox("Do totals match?" & XR, vbYesNo, "Continue?")
    If carryon = vbYes then 
    'Rest of code
End sub