Excel Macro : Concatenate string with cell value using macro
<p>I am using Excel 2010.</p>

<p>I have the following macro which is used to concatenate the string with cell values. </p>

<pre><code>Sub Mac1()
Dim cell As Range
For Each cell In Range("D3", Range("D65536").End(xlUp))
    If cell.Value = "" Then
        cell.Value = ""
    Else
        cell.Value = cell.Value &amp; " Day"
    End If
Next
End Sub
</code></pre>

<p><strong>Note</strong>: Getting the string <code>Day</code> appended each and every time when i run the macro. </p>

<p>The expected result should be if the cell is empty then no string to be concatenate with the cell, if the cell is non empty then it should concatenate string <code>Day</code> at only one time with the cell value at the end.</p>