If Sheet1(i, j).Text > "" AndAlso dic.ContainsKey(Sheet1(i, j).Text) Then Sheet1(i, j).value = Sheet1(i, j).Text & ";" & dic(Sheet1(i, j).Text) End If