Hi There
I am new to coding and tried the following code to 'force Uppercase in drawing register'. It works fine until clear multiple range of cells.
Please help how to get rid of this error.
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("4:1000")) Is Nothing Then Exit Sub
If Intersect(Target, Range("D:AD")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Sub