Problem with do loop - does not appear to be exiting

Hello, I am new to VBA and feel this might be quite a simple issue - but I just don't have a clue what to do.
When I put this bit of code into my function, when I try and run it Excel (2003) gets stuck and I have to force close Excel.

Please Login or Register  to view this content.

Any help would be much appreciated.

Normally this type of code is designed to loop through a range of cells. In your case, you are not looping through a range, you are always pointing to the same cell, which is active cell. If you are trying to work down a column, then add this below your "end if" statement.

Activecell.offset(1,0).select