Hi,

I have a list of values i.e.
CPARTY_ID_STATUS
GL_GROUPING_CD_OLD_STATUS
GL_GROUPING_CD_STATUS
GL_GRPING_OVERRIDE_STATUS


I'm trying to concatenate them like below
"CPARTY_ID_STATUS",""GL_GROUPING_CD_OLD_STATUS",""GL_GROUPING_CD_STATUS","" GL_GRPING_OVERRIDE_STATUS"

But no luck with the below vba, request forum experts advise!

Set lookupRng = Application.InputBox("Lookup Values", "Select Lookup Values", Type:=8)
MsgBox "The cells selected were " & lookupRng.Address

For Each cell In lookupRng.Cells
QueryString = lookupRng & "'" & lookupRng.Value & "',"
Next
QueryString = Left(yourQueryString, Len(QueryString) - 1) & ") VALUES ("