Excel VBA - make header row accept formula

[2Took]

Hello,

Need to keep whatever the background color and font is, but to remove whatever it is that prevents header row of the spreadsheet to accept a formula.

Even after "Convert to Range" / Do you want to convert the table to a normal range? executed, header row won't take a formula, it will just display the formula itself, instead of its result - like any other cell would.

Need this solved by VBA

 

[Legacy 143009]

I didn't test it. Hope it works

Dim rng As Range
Set rng = 'Your cell referance

rng.NumberFormat = "0"
rng.Formula = rng.Value

 

[2Took]

I didn't test it. Hope it works

Dim rng As Range
Set rng = 'Your cell referance

rng.NumberFormat = "0"
rng.Formula = rng.Value

Gives below error, on:

Set rng = activeCell.Value 'Your cell referance

 

[Legacy 143009]

Try:

Dim rng As Range
Set rng = ActiveCell

rng.NumberFormat = "0"
rng.Formula = rng.Value