Excel - Convert lowercase to uppercase

Toc-Toc. It's me again!
As expected, the Berry fool didn't do everything right.
I tried the second solution
First of all, I couldn't find "Microsoft Forms X. object Library" in the checkbox list; instead, there were 4 other lines checked:
Visual Basic for Applications
Microsoft Excel 14.0 Objects Library
OLE Automation
Microsoft Office 14.0 Objects Library
So I left it like that.

I copied and pasted:
Public Const monBouton As String = "Paste in Uppercase"

Sub Opening()
Dim NewCtrl As Object
Closing
With CommandBars("Cell")
Set NewCtrl = .Controls.Add(Type:=1, ID:=1, before:=3)
With NewCtrl
.Caption = monBouton
.OnAction = "test1"
.FaceId = 98
.Tag = ""
End With
End With

End Sub
Sub Closing()
'Removing the button
On Error Resume Next
CommandBars("Cell").Controls(monBouton).Delete
On Error GoTo 0
End Sub

Sub test1()
Dim MyDataObj As New DataObject, Array() As String, ArrayPaste() As String, Var2 As String, i As Long

MyDataObj.GetFromClipboard
Var2 = MyDataObj.GetText
Array = Split(Var2, Chr(10))
For i = 0 To UBound(Array) - 1
Array(i) = Left(UCase(Array(i)), Len(Array(i)) - 1)
Next
ActiveCell.Resize(UBound(Array)) = Application.Transpose(Array)
End Sub

Then
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Closing
End Sub

Private Sub Workbook_Open()
Opening
End Sub

The problem is that after I've copied my column from workbook 1 and I want to right-click to paste in uppercase, the option does not appear in the paste window as it does in your example.

In the end, it doesn't work while in your example, it's perfect. So I've messed up somewhere.
Could it be because I left the first line that appears by default in the "Module" and "Visual Basic" windows with the codes?

Another clue, when I tried to save my file, a window appeared saying that features could not be saved if the workbook did not contain a macro. So the hidden fool from Berry has everything wrong.

Sorry for being such a burden; it seems so simple, and it's something that would really help me. The worst part is that I've redone it countless times but can't see where I've messed up.


https://www.cjoint.com/?BFuqkMnzr8h
https://www.cjoint.com/?BFuqwEMW0iO
--
From humility, respect, and sharing comes strength.

Hello Pijaku, and thank you for your quick response.

Actually, I know how to change lowercase letters to uppercase, but what I'm looking for is to find out if there’s a trick to copy an entire column as it is (lowercase and uppercase) and ensure that everything automatically changes to uppercase at the moment of pasting into the formatting workbook.
I appreciate your teaching skills; it's not such an easy exercise.

Best regards.

There's some improvement, now when I want to paste the data, the paste in uppercase option appears, but when I click on it, a message appears (which I'm attaching) and nothing gets copied.
If you don't mind, I'm also attaching a copy of my file, if you want to take a look to see what's wrong, because I'm really lost.

https://www.cjoint.com/?BFuwtzVl1Po
https://www.cjoint.com/?BFuwwuKIKzd

A thousand thanks

Good evening.
Your insertion tip worked, now the sought reference appears.

It works and it's thanks to you, your skills, and your patience. I am more grateful than you can imagine. If you don't mind, I will explain to you tomorrow why in private message.

One last piece of information, when opening or closing the file, I don't get a message asking me to enable macros knowing that I checked the option to disable macros with notification, is that normal?

So millions of THANKS. Thanks also to Philou10120 for his intervention.

Best regards.