Function Translate(text As String, fromLang As String, toLang As String) As String
    ' If empty cell ? return blank
    If Trim(text) = "" Then
        Translate = ""
        Exit Function
    End If

    Dim url As String, json As String
    url = "https://api.mymemory.translated.net/get?q=" & text & "&langpair=" & fromLang & "|" & toLang

    On Error GoTo ErrHandler
    json = WorksheetFunction.WebService(url)
    Translate = Split(Split(json, """translatedText"":""")(1), """")(0)
    Exit Function

ErrHandler:
    Translate = ""
End Function

=OR(CELL("row")=ROW(),CELL("col")=COLUMN())
=AND(CELL("row")=ROW(),CELL("col")=COLUMN())
VBA code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Calculate
End Sub

$#,##0.00;-$#,##0.00;;