VBA code to change case of comments in workbook

[excelsishya]

Hi all,

I am having workbook with multiple Tabs (Financial model) having comments in many cells.Case in text of comments is not consistent.Is there any VBA code which can Search each comments through out workbook change its text in comments to proper case .

Windows 7
Excel 2007

Thanks in advance.

 

[Mike Blackman]

Hi,

Try This;

Sub ChangeCase()

    Dim cmt As Comment
    Dim wsh As Worksheet
        
    For Each wsh In ThisWorkbook.Worksheets
        For Each cmt In wsh.Comments
            cmt.Text Text:=Application.Proper(cmt.Text)
        Next cmt
    Next wsh

End Sub

 

[excelsishya]

Thanks Mike.

Code is Perfectly Working.