Using Selected cells in specified rows

[kristers77]

Hey,
I have been trying to figure out, how to replace value in specified row(etc 6 row), if it is selected.

The macro is pretty simple.

With Worksheets("Sheet1").Rows(6)
Selection.Replace What:=Val(1), Replacement:="one"
Selection.Replace What:=Val(2), Replacement:="two"
End With

The code works, but not as intendent. It works aswell in other rows(etc 1,2,3,4,5) not only in row 6.

Thanks for any help!