Sub Test()  
MsgBox ActiveCell.Width  
End Sub  
Узнаем ширину столбца активной ячейки. А теперь ищите информацию про сантиметры/дюймы/пиксели/пункты...

Спасибо!  
К сожалению макрос от Kuzmich не работает.  
У Юрия всё OK, но ширина показана в 3/4 дюйма.  
А по ссылке VDM то, что нужно (отдельное спасибо),  
UDF Казанского показывает ширину столбца ячейки в пикселях  
 
Function WidthRange()  
Application.Volatile True  
WidthRange = application.caller.Width / 0.75  
End Function  
 
Только не пересчитывается автоматом, только по F9.  
 
Как можно кроме    
Sub Worksheet_SelectionChange(ByVal Target As Range)  
   Application.CalculateFull  
End Sub  
в модуле листа  
заставить UDF пересчитываться при изменении ширины столбца?  
И есть ли событие листа - изменение размеров ячейки?

Сделайте, как у Алексея:  
Sub Test()  
MsgBox ActiveCell.Width / 0.75  
End Sub

{quote}{login=Vlad}{date=14.09.2011 01:17}{thema=}{post}Да, Юрий, я так уже сделал.  
 
Ещё элементарный вопрос по VBA:    
исхоя из того, что знак(символ) = (пиксель-5)/7 сделал UDF Казанского в таком виде  
 
Function ширинаЗН()  
Application.Volatile True  
ширинаЗН = Round((ActiveCell.Width / 0.75 - 5) / 7, 2)  
End Function  
 
но она показывает ширину столбца активной ячейки, а не той, в которую введена.  
Как грамотно написать, чтобы ширина столбца округлялась до 2-х знаков после запятой?    
(Ну не макрописец я:){/post}{/quote}  
 
 
Function ширинаЗН(c as string)  
Application.Volatile True  
ширинаЗН = Round((range©.Width / 0.75 - 5) / 7, 2)  
End Function  
 
=ширинаЗН("A1")

Не тот пример приложил (черновик).  
Вт рабочий.