Macro that shifts a cell's reference cell down one each time

Hi guys,

I'm using a worksheet (let's call it 'WS A') where the cell A1 equals the value of a cell in a different worksheet (called 'WS B'). Each time I run the macro, I'd like the cell that A1 references on WS B to be shifted down one (e.g., if A1 initially equals 'WS B'!B2, I then want it to equal 'WS B'!B3). It'd be great also if once the macro reached a blank cell (they're programmed to have contents ""), it returned a dialog box letting the user know they've reached the end of the list and returned it's reference to the original cell 'WS B'!B2. Lastly, each time the macro runs (including the last time when it loops back to the original cell) I'd like Excel to save the current workbook.

Thanks so much for your help!
emalts

Bump no response