How to tweak this code to ignore numbers?

[MOB]

I'm using the code below, but I want it to only amend if the cell is text, not a number - is this possible?

For Each cell In Range("B5:D" & Cells(Rows.Count, "A").End(xlUp).Row)
If Len(cell.Value) > 1 Then cell.Value = Left(cell.Value, 1)
Next cell

TIA

 

[Fluff]

Try

For Each Cell In Range("B5:D" & Cells(Rows.Count, "A").End(xlUp).Row)
   If Len(Cell.Value) > 1 And Application.IsText(Cell.Value) Then Cell.Value = Left(Cell.Value, 1)
Next Cell

 

[KennyGreens]

Hi there, you can use something like this:

For Each cell In Range("B5:D" & Cells(Rows.Count, "A").End(xlUp).Row)
    If isNumeric(cell.Value) = False Then
        If Len(cell.Value) > 1 Then 
            cell.Value = Left(cell.Value, 1)
        End If
    End If
Next cell

Edit: Seems I'm posting this a lot recently, but Fluff beat me to it yet again

 

[MOB]

Thanks both

 

[Fluff]

You're welcome