examine a value then leave it or increment...

[Ivano]

Hi,
I have a column of numbers and want a macro that will examine the value in
cel A1 and if it is eqal to or less then 5 then leave it alone else increment
the number by one.


Thanks,

 

[Karl E. Peterson]

I have a column of numbers and want a macro that will examine the value in
cel A1 and if it is eqal to or less then 5 then leave it alone else increment
the number by one.

I have a cat, a dog, and two birds. I'd like a vacation.

 

[DA]

Private Sub Pets2Vacation()
If ActiveDocument.Tables(1).Cell(1, 1).Range.Text = "Cat, Dog and two birds"
Then
ActiveDocument.Tables(1).Cell(1, 1).Range.Text = "Vacation"
End If
End Sub

 

[Karl E. Peterson]

Private Sub Pets2Vacation()
If ActiveDocument.Tables(1).Cell(1, 1).Range.Text = "Cat, Dog and two birds"
Then
ActiveDocument.Tables(1).Cell(1, 1).Range.Text = "Vacation"
End If
End Sub

To think! That's _all_ there is to it???