'upper and lower are worksheet function and cannot be used vba
' following is for lower to upper
'Use Ucase from lower to upper
'use Lcase for upper to lower
Public Sub test()
Dim sstring
Dim cell As Range
For Each cell In Range("c6:c12")
cell.Activate
sstring = ActiveCell.Value
ActiveCell = UCase(sstring)
Next
End Sub
Public Sub test1()
'this is for upper to lower
Dim sstring
Dim cell As Range
For Each cell In Range("c6:c12")
cell.Activate
sstring = ActiveCell.Value
ActiveCell = LCase(sstring)
Next
End Sub
change the address of your range(from c6:c12 to your address.
======================
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.