Msgbox results

kistonce,

Try:

Option Explicit
Sub Reconcile()
Dim Deb As Double
Dim Cred As Double
Dim Clr As Double
Dim Frm As Double
Deb = Evaluate("=Sum(D3:D10000)")
Cred = Evaluate("=Sum(F2:F10000)")
Clr = Evaluate("=SumIf(E5:E10000," <> """,D5:D10000)")
Frm = Cred - Deb + Clr
MsgBox "Bank balance should be " & Format(Frm, "$#,##0.00")
End Sub