Lave kopi af celle inden man gemmer og sætte det ind igen

Du skal nok slå det hele sammen, så indholdet af D8 bliver aflæst, fjernet, filen gemt og indhold af D8 indsat igen.

Public Sub GetDataAndSave()
    Dim strContents As String
    Dim objCell As Range
   
    Set objCell = ActiveSheet.Range("d8")
    strContents = objCell.Text
    objCell.ClearContents
   
    ActiveWorkbook.Save
   
    objCell.Value = strContents
   
    Set objCell = Nothing
End Sub

Det virker. :-)

lig et svar så giver jeg point.

Svar :-)