'For column IV... ColNum = Columns("IV").Column
'For column number 256... ColName = Split(Cells(, 256).Address, "$")(1)