Attribute VB_Name = "Module1" Sub TranslateToJapanese() Dim rng As Range Dim cell As Range Dim HTTPReq As Object Dim html As Object Dim translatedText As String If Selection.Cells.Count = 0 Then MsgBox "Please select a cell", vbExclamation Exit Sub End If Set HTTPReq = CreateObject("MSXML2.XMLHTTP") For Each rng In Selection If rng.Value <> "" Then HTTPReq.Open "GET", "https://translate.googleapis.com/translate_a/single?client=gtx&sl=en&tl=ja&dt=t&q=" & rng.Value, False HTTPReq.send Set html = CreateObject("htmlfile") html.body.innerHTML = HTTPReq.responseText translatedText = Split(Split(html.body.innerText, "[[")(1), """")(1) rng.Value = translatedText End If Next rng Set HTTPReq = Nothing Set html = Nothing MsgBox "Finished!", vbInformation End Sub