Macro - Insert Equal Sign to Convert String to Formula

[Access''03_NewUser]

Hello,

I am attempting to write a simple macro

 

[Access''03_NewUser]

Sorry, I think I hit the post button on accident? Allow me to expand on my
own previous post...

I am attempting to write a macro to insert a prefix to each cell in a column
of string values. The prefix will be an equal sign; My intent is that the
string values will execute as formulas once the macro has been executed.

Any guidance/assistance is greatly appreciated.

 

[Dave Peterson]

Option Explicit
Sub testme01()

Dim myRng As Range
Dim myCell As Range

Set myRng = Nothing

On Error Resume Next
With Worksheets("Somesheetnamehere")
Set myRng = .Range("B2", .Cells(.Rows.Count, "B").End(xlUp)) _
.SpecialCells(xlCellTypeConstants)
End With
On Error GoTo 0

If myRng Is Nothing Then
MsgBox "No constants!"
Exit Sub
End If

For Each myCell In myRng.Cells
With myCell
.NumberFormat = "General"
.Formula = "=" & .Value
End With
Next myCell

End Sub