Helmut,
Ludo said "Thanks!" in that thread, but I didn't
get much out of it. Is that the right thread?

Gabi,
How about putting your text into an unused column,
e.g. cells(1,9), and then:
Sub Sub1()
Dim zWidth!
Columns(9).ColumnWidth = 1
Columns(9).AutoFit
zWidth = Columns(9).Width
MsgBox zWidth
End Sub
Dave D-C ------- please top-post in this group

Helmut Weber wrote:
Hi Gabi,
see:
http://groups.google.de/group/micros...f88076e188ebf7
Tinyurl:
http://tinyurl.com/2he88q

wrote:
Hi.
I have to compute the length of a string in order to achieve the best
fitting inside a cell.
So given a range of merged cells or a single cell I want to resize the
range to get the whole text visible. Without using wrap or shrink.
I can't get a good aproximation for all fonts. For example, using x as
the average char, I can't write Verdana.
No need to mention I didn't find any resource on this matter.
Does anyone know how to solve it?
Gabi