Hi again John,

Dim lngRow As Long
Dim lngCol As Long
Dim varValue As Variant

lngRow = rngToFind.Row 'Returns the row number

lngCol = rngToFind.Column 'Returns the column number

varValue = c.Value 'Returns the value in the cell

Cells(lngRow, "C") = c.Value 'Copies c.value to column C same row

c.Offset(0, 3).Select 'Addresses a column 3 to right

c.Offset(0, -3).Select 'Addresses a column 3 to left

c.Offset(3, 0).Select 'Addresses a row 3 down

c.Offset(-3, 0).Select 'Addresses a row 3 to up

'You don't have to select the cell when using Offset.
Example:-
c.offset(0,-3).value = c.value 'Copies c.value to cell 3 to left

GUIDE for Offset:_
The offset number is the number of times you would have to press the
right/left/down or up arrow to get to the required position.


Hope this helps.

--
Regards,

OssieMac