Hi, I need some help with a problem that I am trying to solve. I hope someone can help me!

I found two macros that I need to use one after another : one that creates a new Worksheet only with values (without formulas), and another macro that adds an apostrophe (') at the beginning of each cell, (so I can convert several columns to text).
Is there any way to create a single macro that creates a new worksheet, without the formulas but with an apostrophe (') at the beginning of each cell?

MACRO 1 (create new worksheet)
Sub Test()
    Dim ws As Worksheet
     Application.CopyObjectsWithCells = False
'do your copy
ActiveSheet.Copy
ActiveSheet.Unprotect
    For Each ws In ActiveWorkbook.Worksheets
Application.CopyObjectsWithCells = True
        ws.UsedRange.Value = ws.UsedRange.Value
    Next ws
End Sub
MACRO 2 (add an apostrophe)
Sub add_apostrophe()
'will add an ' in front of whats in the used range in column A
Set rng = Intersect(Range("A:F"), ActiveSheet.UsedRange)
For Each c In rng
c.Value = "'" & c
Next
End Sub

Any suggestions would be greatly appreciated!!!