Hi
not finding your other post but maybe the following will help you (if
you don't want to use application.worksheetfunction)

sub foo()
dim rng as range
dim cell as range
dim criteria as string
dim ret_value
criteria = "Test_value"
set rng = range("A1:A100")
for each cell in rng
if cell.value=criteria then
ret_value = ret_value + cell.offset(0,1).value
end if
next
msgbox ret_value
end sub



--
Regards
Frank Kabel
Frankfurt, Germany

see i need vba code this issue is more complex. See my post titled
"conditional"


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