Translate text in specific column

[Panoos64]

Hi to all of you! I am kindly require a support so that a VBA code, translates any texts from Greek to English. Therefore that the code should commence from cell "C28" and rows down.
I managed to translate it using the excel module "Translate" but i couldn't assign it into a code. I would much appreciate any support for my project. Thank you all in advance.

 

[Logit]

Maybe something here will help you ?

Translate text using vba

This looks interesting ... untested here :

Function Translate$(sText$, FromLang$, ToLang$)
    Dim p1&, p2&, url$, resp$
    Const DIV_RESULT$ = "<div class=""result-container"">"
    Const URL_TEMPLATE$ = "https://translate.google.com/m?hl=[from]&sl=[from]&tl=[to]&ie=UTF-8&prev=_m&q="
    url = URL_TEMPLATE & WorksheetFunction.EncodeURL(sText)
    url = Replace(url, "[to]", ToLang)
    url = Replace(url, "[from]", FromLang)
    resp = WorksheetFunction.WebService(url)
    p1 = InStr(resp, DIV_RESULT)
    If p1 Then
        p1 = p1 + Len(DIV_RESULT)
        p2 = InStr(p1, resp, "</div>")
        Translate = Mid$(resp, p1, p2 - p1)
    End If
End Function

 

[Panoos64]

Hi Logit, it doesn't work. I wanted a support if is possible so that to use excel's translate menu and assing it, in macro command. However thank you for your time spent for my project. Have a nice day