Hi Alex,

If I understand your question you want to measure the length of text in a
cell and work out how many cells to the right it extends over. To calculate
is very difficult unless the font is non proportional (eg courier) but still
need to cater for bold, italic, different character formats etc.

The simple way is to copy the cell to a dummy sheet, autofit, compare the
width with the original cell and its neighbours. If that's not viable then
you might like to try some of the examples here

http://www.dicks-blog.com/archives/2005/05/16/1131/

There's one at the bottom I posted with some difficulty, and spread over
three attempts. If you can't put that together you I can send you the
original.

Regards,
Peter T
pmbthornton gmail com


"Alex St-Pierre" wrote in message
...
Hi !
I have a text in cells(1,1) that go on cells(1,2) and cells(1,3) Is there
a
function that allow me to count how many columns are used by cells(1,1).
I could do something like:

Dim UsedCol as Interger
If(Cells(1,1)< "")
UsedCol = 1
If(Cells(1,2)= "" And "Text go on the cells") Then
UsedCol = UsedCol + 1
If(Cells(1,3)= "" And "Text go on the cells") Then
UsedCol = UsedCol + 1
End If
End If
Msgbox("Number of column used: " & UsedCol)
End If

Thank you.
--
Alex St-Pierre