Hello to all
I was trying to input an event macro posted on this page that allows to force uppercase data entry
using an Event Macro. The macro works very good when you type or paste in a single row, but when I tried to paste several
cells, it did not converted the info to uppercase.
This is the code that I used:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
On Error Resume Next
If Not Intersect(Target, Range("A4:G5003")) Is Nothing Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
On Error Goto 0
If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines
I was hopping if somebody could tell me how to make this macro to convert data to uppercase when pasting several cells
in differen columns and/or rows.
Thanks in advance for the help!