Hi all I am wondering how to change this code to copy values. The trouble is
at the moment it is copying the code and causing the error code on the
cells.
sub copydata()

Dim rng As Range, cell As Range, col As Long
Dim rw As Long
col = 5
rw = 1
With Worksheets("list")
Set rng = .Range(.Cells(1, col), .Cells(Rows.Count, col).End(xlUp))
End With
For Each cell In rng
If LCase(cell.Value) = "yes" Then
cell.EntireRow.Copy Destination:=Worksheets("fortnight") _
.Cells(rw, 1)
rw = rw + 1
End If
Next

end sub

Thanks in advance

Greg