VBA to replace contents of cell

[Captain Smith]

This code does not work. It performs and does not error, but the replacement does not happen. I want this to act on each of the selected cells and replace on the entire
worksheet the value in the current cell with the value in the cell to the immediate
left. What is missing with this code??? Thanks.

Sub my_macro()
Dim cell As Range
For Each cell In Selection
Cells.Replace What:=cell, Replacement:=cell.offset(0,-1), LookAt:=xlPart _
, ReplaceFormat:=False
Next
End Sub

 

[njimack]

For Each cell In Selection
Cell.Value = Cell.Offset(0,-1).Value
Next cell

 

[Scott Huish]

or without a loop:

Sub test()
With Selection
    .FormulaR1C1 = "=RC[-1]"
    .Value = .Value
End With
End Sub