You can loop through all the cells -

Sub ConvertColumnK()
On Error Resume Next
For Each cell In Range(Cells(1, 11), Cells(Rows.Count, 11))
cell.Value = CDbl("&H" & cell.Value)
Next
On Error GoTo 0
End Sub

In your post in Misc you said convert to Decimal. Hex2Bin converts to
binary.

--
Regards,
Tom Ogilvy


"KarenSue33" wrote in message
...
I want to process a column at a time, so I need a main function.