Page tree

Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.
No Format

Public Sub Caps()

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

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

End Sub