Function FixCase(strIn, intFixType)

    Select Case intFixType
        Case 1
            FixCase = LCase(strIn)
        Case 2
            FixCase = UCase(strIn)
        Case 3
            FixCase = WorksheetFunction.Proper(strIn)
    End Select
    
End Function