Dim LastRow
LastRow = Sheet1.UsedRange.Row - 1 + _
Sheet1.UsedRange.Rows.Count

For x = 1 to lastrow

If sheet1.cells(x, 3).value = "X" then
range("L" & x).value = range("A" & x).value
End If
Next x


Jste this not tested it but it should do what you want



--
Message posted via http://www.officekb.com