Sym = Sym & "+"

"Limey" wrote in message
ups.com...
Thanks in advance for any help.
I'm creating a macro that captures a cell value and assigns it as a
File name. That is no problem. What I'm having difficultly with is
that I need to create a loop, which takes the file name, and amends it
by adding a "+" to the end of it, each time through the loop.
So the first time would be "filename+" the second "filename++".
Hope that makes sense.
Here's what I've been playing with so far
Sub test()
Dim CountZones As Integer
Dim i As Long
Dim z As Long
Dim Fname As String
Dim Rng As Range
Dim Sym As String

Sheet4.Activate
Range("b1:z1").Select
CountZones = Application.CountA(Selection)
Selection.Resize(1, CountZones - 1).Select
Fname = Range("a1").Value

For Each Rng In Selection
' Counts times through the loop
i = i + 1
Sym = "+"
' probably redunant but was going to increase the number of
"Sym" counts with this.
z = z + 1
Fname = Fname & Sym


Next

end sub
I'm probably missing something simple and having a brain f@rt ;))
Thanks
Dave