Macro to jump to next blank with a criteria

hi ByteMarks

but it cannot run because in post#16 you gave me a

Sub ActivateNextBlank()

if I assign the macro to ActivateNextBlank with a Dim on the top EXCEL says ONLY COMMENTS MAY APPEAR AFTER END SUB, END FUNCTION OR END PROPERTY.

or i must be doing something wrong to overwirte the original code, if you could explain to me how to correctly again ..

Stewart