Page tree

Welcome to FreeSoftwareServers Confluence Wiki

Skip to end of metadata
Go to start of metadata
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
  • No labels