Need Vba to make the cell value UPPER Case without formula.

[pedie]

I want to cell value in A1 be UPPER but i dont want to use something like this

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("A1")) Is Nothing Then
        Application.EnableEvents = False
        Target = UCase(Target)

From the code below how can i make the code cell value to be in Upper only in A1...

Sub try121()
Cells(1).Value = Sheet2.Name
End Sub

Thanks for helping!

 

[VoG]

Try

Sub try121()
Cells(1, 1).Value = UCase(Sheet2.Name)
End Sub

 

[Jon von der Heyden]

Perhaps;

Cells(1,1).Value = Format(Sheet2.Name,">")

 

[pedie]

wow...that was simple!
but i had no idea it can work that way then...perfect thanks alot!