Very nice Nick! Works great!! I wasn't even close. Thanx so much for the help.

Dennis
============


In article , "Nick Hodge"
wrote:
Denis

This should work

Sub Finale()
Dim iLastCol As Integer, x As Integer
iLastCol = Range("IV2").End(xlToLeft).Column
For x = 2 To iLastCol
Range(Cells(2, x), Cells(11, x)).Select
'your routines here
Next x
End Sub