Dim iLastRow As Long
Dim i As Long
Dim sTemp As String

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
sTemp = sTemp & "sp_addexternlogin ""," & Cells(i, "A").Value & _
",""," & " trust_user , trustuser" & vbNewLine & _
"go" & vbNewLine
Next i
MsgBox sTemp


--

HTH

RP
(remove nothere from the email address if mailing direct)


"kenworld" wrote in
message ...

Anyone,

I'm trying to create a macro to automatic a tedious task. I need help
with a macro to concentatenate a string.

For example, I have a list of usercodes:

Column
A

nx109
px205
px206
qx123

I want to add the usercodes to a string that reads like this.

sp_addexternlogin SQL_PROD, wr_",nx109,", trust_user , trustuser"
go
sp_addexternlogin SQL_PROD, wr_",px205,", trust_user , trustuser"
go
sp_addexternlogin SQL_PROD, wr_",px206,", trust_user , trustuser"
go
sp_addexternlogin SQL_PROD, wr_",qx123,", trust_user , trustuser"
go

Please Help
Kenworld


--
kenworld
------------------------------------------------------------------------
kenworld's Profile:
http://www.excelforum.com/member.php...o&userid=24543
View this thread: http://www.excelforum.com/showthread...hreadid=381377