+ Reply to Thread
Results 1 to 3 of 3

Finding Formulas

  1. #1
    Forum Contributor
    Join Date
    12-04-2003
    Location
    Burrton, Kansas USA
    MS-Off Ver
    2003
    Posts
    162

    Finding Formulas

    Hi!
    I am trying to find all the formulas in a workbook and replace them with "values"?
    Any help would be great!!
    Thanks for your time!

  2. #2
    Forum Contributor
    Join Date
    11-11-2005
    Posts
    267
    Sub ConverFormulasToValues()
    Dim sh As Worksheet
    Dim c As Range
    For Each sh In Worksheets
    Set rng = sh.Cells.SpecialCells(xlCellTypeFormulas)
    For Each c In rng
    c.Value = c.Value
    Next
    Set rng = Nothing
    Next
    End Sub
    HTH
    Myles

    ...constantly looking for the smoother pebble while the whole ocean of truth lies before me.

  3. #3
    Forum Contributor
    Join Date
    12-04-2003
    Location
    Burrton, Kansas USA
    MS-Off Ver
    2003
    Posts
    162
    Thank You: Myles

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1