Thanks for your reply.

I cant reference the textbox 'TBCOL' as it contains a Letter selected by the user for the column, for instance 'A'. I use the function to get the number of the column, in this case '1' that would then replace:
Set IDRowStart = Columns(1).Find(what:="" & StartRange & "", After:=Range("B180"))
with
Set IDRowStart = Columns(??????).Find(what:="" & StartRange & "", After:=Range("B180"))
Thus allowing the resulting calculated column number to be a variable dependant upon the user selected column letter.

Hopefully the above makes things clearer?
I have tried your top piece of code with no luck - Any ideas?

Thanks for your help - its very much appreciated!
mark