This code takes way to long to run

[Jym396]

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

[davesexcel]

Please Login or Register  to view this content.

[leelnich]

Please Login or Register  to view this content.

...which is equivalent to:

Please Login or Register  to view this content.

for those who prefer not to use [shortcut] notation.

[Jym396]

Thinks davesexcel,

Where do I insert or replace that? And how do I do the F column range.

[Jym396]

Thank you davesexcel and leelnich! They both work great! Thank you!

[leelnich]

Sorry, thought it was just 1 column. The INDEX worksheet function can also return a 2-dimensional range or array. Try this:

Please Login or Register  to view this content.

INDEX(Array,Row_Number,Column_Number)
If Row_number = 0 or empty, the entire row range is returned (meaning the array's entire COLUMN(s)). Similarly, a 0 or empty Column_number returns the entire column range. So setting BOTH to 0 (or empty) returns the ENTIRE Array or range.