Increasing a cells value

Hi, just wanted to ask how I could increase a cells value with code.

Let me tell you what I mean.

Cell D4 has the value 4

in cell C4 I want to code it like so (C++ reference) D4 = D4 + 1

that code should be in C4 and it should take the value currently in D4 and then add 1 to it and thus D4 should now read 5

Thanks in advance

hello faltu780
using .range

Range("D5").Value = Range("D4").Value + 1

using .cells

Cells(5, 4).Value = Cells(4, 4).Value + 1

hope this helps