Need to edge out the competition for your dream job? Train for certifications today.
Public Sub x()
Dim r As Range
Dim c As Range
Set r = Sheet1.Range("A2:A" & Sheet1.UsedRange.Rows.Count)
For Each c In r.Cells
If Not (c.Value2 Like "x*") Then
c.Value2 = "x" & c.Value2
Open in new window
Public Sub Q_28375881()
Dim objCell As Range
For Each objCell In Range([A2], Cells(Cells.Rows.Count, 1).End(xlUp))
If IsNumeric(objCell) Then
objCell = "x" & objCell.Text
End If ' If IsNumeric(objCell) Then
Set objCell = Nothing
Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
The MCTS: Microsoft Exchange Server 2010 certification validates your skills in supporting the maintenance and administration of the Exchange servers in an enterprise environment. Learn everything you need to know with this course.