Public Sub Caps()

Dim Inpt As String
Inpt = Application.InputBox(Prompt:="Enter String")

With Range("A1")
         .Value = UCase(Inpt) ''Note 'UCase'
End With

End Sub