Sub CurrConvert()
'
' CurrConvert Macro
'
'
 Dim tCell As Word.Cell
    Dim tRange As Range
    If Selection.Type = wdSelectionIP Or Not Selection.Information(wdWithInTable) Then
        MsgBox "Select numerical values in tables cells before running this macro.", , "Error"
        Exit Sub
    End If
    For Each tCell In Selection.Cells
        Set tRange = tCell.Range
        tRange.End = tRange.End - 1
        With tRange
            If IsNumeric(tRange) Then
                .Text = FormatCurrency(Expression:=.Text)
            End If
            On Error GoTo Skip
Skip:
        End With
    Next tCell
End Sub