Found it :

My fault entirely, you need to change the 'lStartCol' line to read :


lStartCol = IIf(.ColSel < .Col, .ColSel, .Col)





Chris Eastwood

CodeGuru - the website for developers
http://www.codeguru.com/vb