Hi pls123
With Sheets("Sheet1")
.Range("B5").Value = .Range("B5").Value + 1
End With
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"pls123" wrote in message ...
hi all !! good afternoon !!!
i want to remerciate the microsoft forum for the precious help.
i need this:
If "my.condition.true" Then
add 1 to the value of cell "b5"
End If
Ty all for interesting !!