Msgbox all empty rows in a range

nathansav,
ah thats better. However it still returns all the blanks from the last used row in my range to 191 which I dont want as they are supposed to be blank in that case.

EDIT: fixed that with

Set r = range("b18:B" & range("b191").End(xlUp).row)