change labels to formulas

mikezx10 · #1 (**permalink**) 03-18-09, 13:59

I need to change all labels in my sheet to formulas,
so i want to change
Cell a1 value is Gross Revenue
to ="Gross Revenue"

this is what i tried but it didnt work:
Sub formulaFill()
Dim r As Range
Set r = ActiveSheet.UsedRange

Dim cell As Range
For Each cell In r.Cells
cell.Formula = "="" & cell.Value & """

Next

End Sub

ludo27 · #2 (**permalink**) 03-20-09, 09:56

Hello Mike,
this works :

Code:

Sub formulaFill()
Dim r As Range
Set r = ActiveSheet.UsedRange

Dim cell As Range
For Each cell In r.Cells
    cell.Formula = "=" & cell.Value
Next


End Sub

Internet Services

Web Development

Digital Marketing

Consumer Tech