Ændring af format

Jeg har følgende kode som kopiere en række til et nyt ark.
Mit problem er at den kopierer cellens formel, hvor  jeg gerne vil have at den kopiere det navn som formlen har fundet.

Set dest = Sheets("Sag (projekt)") ' ret til aktuel samle arknavn
dest.Range("C2:C500").ClearContents
For Each ark In ThisWorkbook.Sheets
If ark.Name = "Projekter" Then ' ret  til aktuel samle arknavn
rk = dest.Cells(65536, "C").End(xlUp).Row + 1
If rk < 2 Then rk = 2
ark.Range("H2:H500").Copy dest.Range("C" & rk)
End If
Next

Er der en venlig sjæl der kan hjælpe?

mvh
Mikkel