Can you not use:
Dim nsgScale as single
With Range("A:A")
.Width/.ColumnWidth
End with

Depends what your aim is though ?

NickHK

"zzz" wrote in message
. ..
I'm baffled. The UsableWidth property returns the same value under
conditions that make some of the window's area not usable. Specifically,
if
the vertical scrollbar and the row headers are visible, the usable width
of
the active window is reduced by the width of these components. But the
UsableWidth property's reported value doesn't change. Not knowing the
actual width makes it impossible to create a scale within the window,
without wasting much of the screen area. It makes it equally impossible
to
craft code that works on a variety of screen widths.

I've tried to detemine programmatically the widths of the vertical
scrollbar
and of the row headers (and column headers as well). But I've had zero
luck
with referencing these objects.

Can anyone here help?

Tony