In article , smartin
writes
HI

BTW Would it be an easy amendment for the routine to operate directly on
the column where the cursor is , rather than ask for an input letter at
the beginning? It would be useful in some circumstances if it just
assumed that the column where the cursor is is the one to be worked on.

That's all , I promise.


Best Wishes


Colin

Replace this:
TheColumn = InputBox("Which column?")

With this:
TheColumn = Left(OriginalCell, _
InStr(2, OriginalCell, "$") - 1)


Hi

OK that's perfect - working great.

Thanks again.

^_^

Best Wishes


Colin