I have a word doc im using as form. There are a few cells I am using as currency. I am using the following code (which work) but I can't figure out how to run the macro when loosing focus in a cell on the table in word. Any ideas?
Code:
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