Macro works only one selected cell ( doesn't work if 2 or more cells are selected)
<p>I have this problem: my code is executed correctly only if 1 cell is selected, it doesn't work with multiple cells selection. What should be changed? Please help.</p>

<p>current code:</p>

<pre><code>Sub adddate()
Dim cell As Range
Dim r As Range
Set r = Selection

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

End Sub
</code></pre>