This code takes way to long to run

Could someone show me a better way?


Sub ProperlySave()
'
' ProperlySave Macro
' Converts upper case to proper then saves file
'

'


For Each x In Range("C1:C300", "F1:F300")
' There is not a Proper function in Visual Basic for Applications.
' So, you must use the worksheet function in the following form:
x.Value = Application.Proper(x.Value)
Next



ActiveWorkbook.Save
End Sub


Thanks,
Jim