Width of ActiveCell
 

hi,

could you tell what is wrong with my sub

Sub lw()
ActiveCell.CurrentRegion.Width
End Sub

thanks

Width of ActiveCell
 

try this

Sub lw()
Dim p As Double
p = ActiveCell.Columns.ColumnWidth
MsgBox p
End Sub


--


Gary


"EXCEL$B!!(BNEWS" wrote in message
...

hi,

could you tell what is wrong with my sub

Sub lw()
ActiveCell.CurrentRegion.Width
End Sub

thanks

Width of ActiveCell
 

Your Sub does nothing.
It references Width property (in points) of current region.

In order to have it return a value, you must turn it into a Function

Function lw() as Long
lw = ActiveCell.CurrentRegion.Width
End Function

Now you can use your Function from within a cell or another Sub/Function.

HTH
--
AP


"EXCEL$B!!(BNEWS" a ecrit dans le message de news:
...

hi,

could you tell what is wrong with my sub

Sub lw()
ActiveCell.CurrentRegion.Width
End Sub

thanks

Width of ActiveCell
 

Lookup STRCONV in the help files.

Width of ActiveCell
 

thanks a lot,

the sub is ok,

you neednot change it to fun,



"Ardus Petus" wrote in message
...
Your Sub does nothing.
It references Width property (in points) of current region.

In order to have it return a value, you must turn it into a Function

Function lw() as Long
lw = ActiveCell.CurrentRegion.Width
End Function

Now you can use your Function from within a cell or another Sub/Function.

HTH
--
AP


"EXCEL$B!!(BNEWS" a ecrit dans le message de news:
...

hi,

could you tell what is wrong with my sub

Sub lw()
ActiveCell.CurrentRegion.Width
End Sub

thanks

Width of ActiveCell
 

"EXCEL$B!!(BNEWS" wrote in message
...

the sub is ok,

you neednot change it to fun,


It is not it is not runnable as it stands. What are you attempting to do?