Are U trying to add the parenthesis? Seems like U have double parenthesis between words. HTH. Dave
For Each cell In lookupRng.Cells
querystring = querystring & Chr$(34) & cell.Text & Chr$(34) & "," & Chr$(34)
Next
querystring = Left(yourQueryString, Len(querystring) - 2) '& ") VALUES ("