Thread: VBA command for the message box with the values of cell

Hello,

I need a VBA command with the message box containing the values at the end of the column in H & I.

I have attached an excel sheet with the Input.

I need an VBA command with the message box as " Balance of Dr = 4450.44 & Cr= 8584.73"

One possibility

    Dim dblDr As Double, dblCr As Double
    dblDr = Application.Lookup(9.99E+307, Sheets("Sheet1").Columns("H"))
    dblCr = Application.Lookup(9.99E+307, Sheets("Sheet1").Columns("I"))
    MsgBox "Balance of Dr = " & Format(dblDr, "0.00") & " & Cr= " & Format(dblCr, "0.00")

if you know the values are always the last cells in the column then you could just use an End(xlUp) based approach if preferred.