Results 1 to 2 of 2
  1. #1
    Join Date
    Oct 2003
    Posts
    233

    Unanswered: change labels to formulas

    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

  2. #2
    Join Date
    Feb 2009
    Location
    France
    Posts
    6

    Wink

    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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •