How to do one simple work with macro

[papita]

Hi all,
In the sheet, I have data like this where I want to add term "case" using macro. How can I do. If number is one(WBC test), then in stead of No cases, No case will come But it will skip where existed one is there(DC test)

Elisa test in=3
HIv test observed in =4
DC test=No cases
WBC test=1

Output:---
Elisa test in=3 cases
HIv test observed in =4 cases
DC test=No cases
WBC test=1 case

 

[AlphaFrog]

This will update the selected cells.

[color=darkblue]Sub[/color] Add_Case_Terms()

    [color=darkblue]Dim[/color] cell [color=darkblue]As[/color] Range
    
    Application.ScreenUpdating = [color=darkblue]False[/color]
    
    [color=darkblue]For[/color] [color=darkblue]Each[/color] cell [color=darkblue]In[/color] Selection
        [color=darkblue]If[/color] cell.Value [color=darkblue]Like[/color] "*=[2-9]" [color=darkblue]Then[/color]
            cell.Value = cell.Value & " Cases"
        [color=darkblue]ElseIf[/color] cell.Value [color=darkblue]Like[/color] "*=##" [color=darkblue]Then[/color]
            cell.Value = cell.Value & " Cases"
        [color=darkblue]ElseIf[/color] cell.Value [color=darkblue]Like[/color] "*=1" [color=darkblue]Then[/color]
            cell.Value = cell.Value & " Case"
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]Next[/color] cell
    
    Application.ScreenUpdating = [color=darkblue]True[/color]
    
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[papita]

Thanks AlphaFrog,
but this macro is not working properly. For somedata it is working.
Suppose I have the update the data only in H column. How can I do.
If the number of records are more than 10 or 1000, is there any solution to update