Microsoft Office Forums - View Single Post - [Solved] Help Needed with Macro to Change Formulas to Text Using Ranges

rsrasc · 11-29-2016, 02:31 PM

Well, after playing with the following code, I managed to get it done. If someone can update it or make it more efficient, it would be great!

Code:

Sub All_Info()

Call Tab_To_Be_Activated_025
Call Range_Example_025
Call Tab_To_Be_Activated_050
Call Range_Example_050
Call Tab_To_Be_Activated_056
Call Range_Example_056
Call Tab_To_Be_Activated_100
Call Range_Example_100

End Sub


Sub Tab_To_Be_Activated_025()
Sheets("025").Activate
End Sub


Sub Range_Example_025()
    With Range("A4:A100")
        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Cells(1).Select
    End With
    Application.CutCopyMode = False
End Sub




Sub Tab_To_Be_Activated_050()
Sheets("050").Activate
End Sub
Sub Range_Example_050()
    With Range("A4:A100")
        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Cells(1).Select
    End With
    Application.CutCopyMode = False
End Sub


Sub Tab_To_Be_Activated_056()
Sheets("056").Activate
End Sub


Sub Range_Example_056()
    With Range("A4:A100")
        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Cells(1).Select
    End With
    Application.CutCopyMode = False
End Sub




Sub Tab_To_Be_Activated_100()
Sheets("100").Activate
End Sub


Sub Range_Example_100()
    With Range("A4:A100")
        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Cells(1).Select
    End With
    Application.CutCopyMode = False
End Sub