Create a formula with the name THIS CELL.
Select cell A1 in the current worksheet (this is critical!)
(Ctrl+F3) to open the Name Manager
To begin, select New...
In the Name: field, type "THIS CELL" (or just "THIS," as I prefer).
In the Refers to box, type the following formula:
=!A1
Make sure that cell A1 is chosen. The ActiveCell is used in this formula.
Select Workbook from the Scope drop-down menu.
Close the Name Manager by clicking OK.
=CELL("width",THIS CELL)