ksknapp


Try

Sub TOTHERIGHT()
Dim r As Range
Dim j As Integer
Dim T As Double
Dim WorkRange As Range
Set WorkRange = ActiveSheet.Range("E3:E6")
For r = 1 To WorkRange.Rows.Count
If WorkRange.Cells(r, 1) < "TOTAL ACCOUNTS" Then
T = WorkRange.Cells(r, 1).offset(0,1).Value + T
End If
Next r
MsgBox (T)
End Su

--
Message posted from http://www.ExcelForum.com