Auto upper case for specific range of cells

I have a workbook with only this code and it works great:

Please Login or Register  to view this content.

I also have a workbook with code to bold/unbold a range of 31 numbers that represent a month. It also counts the number of bold numbers and tallies them in a separate cell. The part of the code that runs the bold and count works great but the auto upper case doesn't work in this workbook and is as follows:

Please Login or Register  to view this content.

I can't figure why it doesn't work. The only change I made is to change the first line of the "upper case" formula because I was getting an error message. I changed it from "Private Sub Worksheet_Change(ByVal Target As Range)" to "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"

Please help and thanks!

I think you were getting the error message because you had two worksheet change macros, you should combine them rather than changing the sub header of one:

Please Login or Register  to view this content.