[achavez]

Hi Guys,

I am trying to run a loop through a range ex C4:c15 where it is populated with characters.
I would like to create a loop that populates each text by adding 6 extra spaces at the end.
Thanks for your replies in advance!

[maj3091]

Please post the code of what you have tried so far using the [Code ] tags.

[achavez]

Dim rng As Range
rng = Worksheets("Sheet1").Range("C4:C15")
Dim val As String
Dim cell As Range

For Each cell In rng
val = cell.Value
val = val & " "
cell.Value = val
Next cell
End Sub

[maj3091]

I'm not that familiar with VBA, so can you tell me what it isn't doing?

I can see you're trying to loop around the range and add a space to the cell value and update it again.

So what does it actually do? What do you get written back to your cells?

Are the cells formatted so that you can display them as strings (extra spaces).

This post has been edited by maj3091: 17 August 2012 - 08:12 AM

[achavez]

Hey DIC!
I just figured it out!

i had to write "set" before RNG..so

set rng = Worksheets("Sheet1").Range("C4:C15")

This will add 6 additional spaces to the cells.
Thanks very much!

[maj3091]

Glad you sorted it out and thanks for posting your solution for others.