選択範囲内の日付を変更

Question

私は選択された範囲内の日付を変更するマクロを使用しています。それはうまく動作しますが、選択範囲内に日付以外の値を持つセル（「abcdef」またはセルが空です）があり、マクロを実行すると、日付以外の値が日付に変換されます。どのように修正する必要がありますか？

現在のコード：

Sub adddate() 
Dim cell As Range 
Dim r As Range 
Set r = Selection 

For Each cell In Selection 
If IsDate(cell.Value) Then 
Selection.Cells = DateAdd("d", 28, CDate(cell)) 
End If 
Next cell 

End Sub 

Answer 1

Sub adddate() 
    Dim cell As Range 

    For Each cell In Selection 
     If IsDate(cell.Value) Then cell = DateAdd("d", 28, CDate(cell)) 
    Next cell 
End Sub