How to add additional text to cell reference in VBA

[EAG1]

Hello all,

I want the following VBA code to look for the cell reference + "_1" in my code and cannot work it out. I am quite new to VBA.

My current line goes:

For Each cel In Range("B2", Range("B" & Rows.Count).End(xlUp))

Could someone help me add "B2"&"_1" into the code because this doesn't work.

My data is as follows. It is used to look up images in my files.

11461
21051
14924

I want the code to look for the following but not change the data.

11461_1
21051_1
14924_1

Many thanks for your help.

 

[ziza]

Hi,
try this

Sub addsomething()

Dim mycell As Range
For Each mycell In ActiveSheet.UsedRange.Columns("B").Cells
mycell.Value = mycell.Value & "_1"
Next mycell
End Sub

 

[mohadin]

Your code

Sub test()
Dim cel As Range
For Each cel In Range("B2", Range("B" & Rows.Count).End(xlUp))
cel = cel & "_1"
Next
End Sub

 

[Fluff]

Another option

Sub EAG()
   With Range("B2", Range("B" & Rows.Count).End(xlUp))
      .Value = Evaluate(Replace("If(@="""","""",@&""_1"")", "@", .Address))
   End With
End Sub

 

[EAG1]

Thank you all. Very helpful.

 

[Fluff]

Glad we could help & thanks for the feedback.