vba Convert Column only to Absolute

[gtd526]

Hello,

just want to change A1 to $A1, for any selected cell.
I have the following code to convert entire formula, but only want the Column.

For Each c In Selection
If c.HasFormula = True Then
c.Formula = Application.ConvertFormula(c.Formula, _
xlA1, xlA1, xlAbsolute)
End If
Next c


thank you

 

[Zot]

instead of using xlAbsolute, use xlRelRowAbsColumn or simply type 3

Refer here

XlReferenceType enumeration (Excel)

Office VBA reference topic

docs.microsoft.com

 

[gtd526]

instead of using xlAbsolute, use xlRelRowAbsColumn or simply type 3

Refer here

XlReferenceType enumeration (Excel)

Office VBA reference topic

docs.microsoft.com

Thank you

 

[Zot]

You're welcome