VB Macro for Proper Case to Ignore "/" & "-"

I have a Excel text document that I compile from multiple sources, and if they don't leave a "white space" before a "/", "-", or "(" the Proper Case command does not capitalize the word that immediately follows that symbol.

 Sub Proper_Case_Inner(Optional mySelection As String)
     Application.ScreenUpdating = False
     Application.Calculation = xlCalculationManual
     Dim cell As Range
     Dim rng As Range
     On Error Resume Next   'In case no cells in selection
     If mySelection = "" Then Set rng = Selection _
         Else Set rng = Range(mySelection)
     For Each cell In Intersect(rng, _
            rng.SpecialCells(xlConstants, xlTextValues))
        cell.Formula = StrConv(cell.Formula, vbProperCase)
......

Thanks for your help in advance.

jlcford