Macros

Hi David

Thank You for your question

The following code will solve the problem for you. Simply create a module in the VBE and paste the code into it

Sub UcaseFormatter()

      



    Dim varRange As Range

    Dim intRowCount As Integer

    Dim intColCount As Integer

        

    

    Set varRange = Range("A1").CurrentRegion

    

    For intRowCount = 1 To varRange.Rows.Count

    

        For intColCount = 1 To varRange.Columns.Count

        

            Range("a1").Cells(intRowCount, intColCount).Value = UCase(Range("a1").Cells(intRowCount, intColCount).Value)

            

        Next intColCount

        

    Next intRowCount

    

End Sub