macro to change data type for crm extracts

crmfieldtype.bas

Sub CrmConvertFields()
'
' CrmConvertFields Macro
'
    Dim txt As String
    Dim num As Double
    For Each Cell In Selection.Cells
        
        txt = Cell.Value
        txt = Replace(txt, "$", "")
        txt = Replace(txt, ",", "")
        If Len(txt) > 0 Then
            
            Dim txtNum As String
            txtNum = Right(txt, Len(txt) - 1)
            If (IsNumeric(txtNum)) Then
                Cell.Value = Val(txtNum)
            End If
            
            If (IsDate(txt)) Then
                Cell.Value = DateValue(txt)
            End If
            
        End If
        
    Next
'
End Sub