Get the above message for this portion of code,
Many thanks for your help

Sub leng()

For i = 14 To 7
If Len(Cells(4, i)) = 5 Then Cells(4, i) = "J" & Cells(4, i)
Else
If Cells(4, i) = 123 Then Cells(4, i) = "R" & Cells(4, i)
Else
If Cells(4, i) = 124 Then Cells(4, i) = "R" & Cells(4, i)
Else
If Cells(4, i) = 128 Then Cells(4, i) = "R" & Cells(4, i)
Else
If Cells(4, i) = 148 Then Cells(4, i) = "R" & Cells(4, i)
Else
If Cells(4, i) = 157 Then Cells(4, i) = "R" & Cells(4, i)
Else
If Cells(4, i) = 161 Then Cells(4, i) = "Q" & Cells(4, i)
End If
Next

End Sub


--
T De Villiers
------------------------------------------------------------------------
T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479
View this thread: http://www.excelforum.com/showthread...hreadid=567130