Sentence translator in Excel

[ASProvider]

Hi Folks,

Here is a macro for word to word translation.

Sub macc()
Dim d() As String
Dim myValue As Variant
myValue = InputBox("Input Cell ID")
d = Split(Worksheets("Titles").Range(myValue).Value, " ")
For Each i In d
a = Application.WorksheetFunction.VLookup(i, Worksheets("Words").Range("A:B"), 2, False)
b = b + a & "_"
Next i
Worksheets("Titles").Range(myValue).Offset(0, 1).Value = Left(b, Len(b) - 1)
b = ""
End Sub