VBA help

[Donai]

Hi, i need a vba code that will add -Team1 to each bank,

So,

CITI-Team1
etc

Excel Workbook
	A
1
2	CITI
3	JP
4	RBS
5
Sheet2

 

[VoG]

Hi. Try this

Sub AddTeam()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    With Range("A" & i)
        .Value = .Value & "-Team1"
    End With
Next i
End Sub

 

[Donai]

Thanks Vog

Hi. Try this

Sub AddTeam()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    With Range("A" & i)
        .Value = .Value & "-Team1"
    End With
Next i
End Sub