I have several cells that I need to delete the ' in front of text in that
cell. How do I write the code for this in VBA?

Hi,

Right click your sheet tab, view code and paste this in and run it.

Sub stantial()
Application.ScreenUpdating = False
For Each c In ActiveSheet.UsedRange
If Not c.HasFormula Then
c.Value = c.Text
End If
Next
Application.ScreenUpdating = True
End Sub

Mike

"iashorty" wrote:

I have several cells that I need to delete the ' in front of text in that
cell. How do I write the code for this in VBA?

On 5 Jun., 22:05, iashorty wrote:
I have several cells that I need to delete the ' in front of text in that
cell. How do I write the code for this in VBA?

Hi

Look at this

Range("A1").Value = Mid(Range("A1").Value, 1)

Regards,
Per

If this is a contiguous block of data, select it and run

With Selection
.Value = .Value
End With

or this will work for everything. Select the cells and run

Dim cell As Range
For Each cell In Selection.Cells
cell.Value = cell.Value
Next

--
Tim Zych
www.higherdata.com
Compare data in worksheets and find differences with Workbook Compare
A free, powerful, flexible Excel utility



"iashorty" wrote in message
...
I have several cells that I need to delete the ' in front of text in that
cell. How do I write the code for this in VBA?

Thanks, Tim. This worked for me and I was able to understand what I was doing.

IAShorty


"Tim Zych" wrote:

If this is a contiguous block of data, select it and run

With Selection
.Value = .Value
End With

or this will work for everything. Select the cells and run

Dim cell As Range
For Each cell In Selection.Cells
cell.Value = cell.Value
Next

--
Tim Zych
www.higherdata.com
Compare data in worksheets and find differences with Workbook Compare
A free, powerful, flexible Excel utility



"iashorty" wrote in message
...
I have several cells that I need to delete the ' in front of text in that
cell. How do I write the code for this in VBA?