Adding a common value to a column.

*first time attempting to use VBA
*mac excel 2011

Looking to add a common value within the range D1 to D8000 on Sheet1.
Example:
Current sheet contains the following;
D1 = 123
D2 = 583
D3 = 229
etc...to D8000

I need to add the letters "ALB" prior to each of these numbers. (They could be added at the end just the same, if there is a difference.)

What I need:
D1 = ALB123
D2 = ALB583
D3 = ALB229
etc...

(The "ALB" could be added at the end just the same, if there is a difference.)

I don't have a Mac, but in Windows, the Helper Column Formula would be
(Copy formula down to D8000)

Code:

---

=Concatenate("ALB",D1)

---

The VBA Code would be

Code:

---

Sub ALB()
Dim Cel As Range
For Each Cel in Range("D1:D8000")
  If Cel.Value <> "" Then
      Cel.Value = "ALB" & Cel.Value
  End If
Next Cel
End Sub

---

Place Code on the Code Page of the worksheet to be worked on.

Thank you, worked perfect!