[Access''03_NewUser]

Hello,

I am attempting to write a simple macro
--
Thanks again...

[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.
--
Thanks again...


"Access''03_NewUser" wrote:

Hello,

I am attempting to write a simple macro
--
Thanks again...

[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


Access''03_NewUser wrote:

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.
--
Thanks again...

"Access''03_NewUser" wrote:

Hello,

I am attempting to write a simple macro
--
Thanks again...

--

Dave Peterson

[abbruno]

I have this macro working for me, however, I need to apply it to multiple sheets in a workbook, but not all of them. Is there a way to apply this macro to multiple sheets? I would prefer not to add a loop if possible.

Originally Posted by 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


Access''03_NewUser wrote:

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.
--
Thanks again...

"Access''03_NewUser" wrote:

Hello,

I am attempting to write a simple macro
--
Thanks again...

--

Dave Peterson