On Apr 27, 11:40 am, "PCLIVE" wrote:
Your Sheet Activate seems to be a bit off. I could be wrong. If you want
the sheet named "Sheet4", then use Sheets("Sheet4").Activate. With that
change, your code seems to work, at least on my end, the way you request.

Sub test2()

Dim CountZones As Integer
Dim i As Long
Dim z As Long
Dim Fname As String
Dim Rng As Range
Dim Sym As String

Sheets("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"George Nicholson" wrote in message

...

Sym = Sym & "+"

"Limey" wrote in message
oups.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

Again thanks, I'd spotted the sheet thing when I went back to the code
after posting, and you're right things seem to be working out ok.
Ta again :))