hi,

could you tell what is wrong with my sub

Sub lw()
ActiveCell.CurrentRegion.Width
End Sub

thanks

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

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

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

"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?

Lookup STRCONV in the help files.