Searching for Text within a worksheet, and selecting the cell

I'm using a command button (p1) within Private Sub P1_Click()

It pulls the activecell as a string (for example $A$1) using a variable called CurrCell, I then want to search this string (currCell) within the worksheet "DATA" and select the cell 3 to the right of it, so that I can change the value.

many thanks in advance.