Macro to Capitalize Colum on Save

[Mr Jukebox]

Looking for a Macro that will capitalize any letters in the C column when the workbook is saved. The macro I have will capitalize the C column of whichever sheet I am working in when I saved it. I want it to only capitalize the C column in the "Main" worksheet no matter what worksheet is currently open when saved.

Thanks in advance

 

[iggydarsa]

This will convert "abc" to "ABC"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    lr = Worksheets("Main").Range("C" & Rows.Count).End(xlUp).Row
    For i = 1 To lr
        Worksheets("Main").Range("C" & i).Value = UCase(Worksheets("Main").Range("C" & i).Value)
    Next i
End Sub

if you want to convert "abc" to "Abc" then you can use this:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    lr = Worksheets("Main").Range("C" & Rows.Count).End(xlUp).Row
    For i = 1 To lr
        Worksheets("Main").Range("C" & i).Value = StrConv(Worksheets("Main").Range("C" & i).Value, vbProperCase)
    Next i
End Sub

 

[Mr Jukebox]

This macro works I just had to change the opening line to "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)" so that it runs whenever the workbook is saved instead of only running when it is closed. Thank you for your assistance.