Code:Public Sub ProcessData() Dim Lastrow As Long Dim i As Long Application.ScreenUpdating = False With ActiveSheet Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 1 To Lastrow If IsNumeric(.Cells(i, "A").Value) Then .Cells(i, "A").Value = "'" & .Cells(i, "A").Value End If Next i End With Application.ScreenUpdating = True End Sub
Bookmarks