Sorry my mistake

I was working on several different problems at the same time

Sub cfffg()
Dim c As Range
For Each c In Selection
Select Case UCase(c)
Case "115297" ': then insert into A "22" and insert into I "23"
Range("a" & cell.Row).Value = "22"
Range("i" & cell.Row).Value = "23"

Case "276534" ' : then insert into A "27" and insert into I "93"
Range("a" & cell.Row).Value = "27"
Range("i" & cell.Row).Value = "93"

'Case "" 'then insert into A "999" and insert into I "999"

Case ""
Range("a" & c.Row).Value = "999"
Range("i" & c.Row).Value = "999"
Exit For
End Select
Next
End Sub


---
Message posted from http://www.ExcelForum.com/