Change Case

Have you ever needed to change the case of text in selected cells within an Excel spreadsheet? After searching the Internet, I found something close then modified it to meet my needs. Others may need to do the same so here is the macro that I ended up with.

---

Sub Change_Case()

Dim ocell As Range
Dim Ans As String
Ans = Application.InputBox("Type in Letter" & vbCr & _
"(L)owercase, (U)ppercase, (S)entence, (T)itles ")
If Ans = "" Then Exit Sub
If TypeName(Selection) <> "Range" Then Exit Sub

For Each ocell In Selection

Select Case UCase(Ans)
Case "L": ocell = LCase(ocell.Text)
Case "U": ocell = UCase(ocell.Text)
Case "S": ocell = UCase(Left(ocell.Text, 1)) & _
LCase(Right(ocell.Text, Len(ocell.Text) - 1))
Case "T": ocell = Application.WorksheetFunction.Proper(ocell.Text)
End Select

Next

End Sub

---

I only needed it to force all upper or all lower case. I have not tested the other options so use it at your own risk.

Shopping for Electronics?

I have found myself shopping online for electronics more and more so I have added some links to my side bar for some of my favorite shopping sites. NewEgg has been my fav for a while. You can find good buys if you watch their daily deals. Woot has one deal for sell each day so you have to check it every morning to see if it has something that you want.

Tech Only Blog

I have decided to create a separate blog for social, political, religious and other personal views and make this blog purely technical. I find that it is easier to jot down tech thoughts than it is to think up non-tech ideas and thought that separating the two made sense. I will give this a try and see how it works.

Google Shell

For all you command line nuts out there, Google is working on a cool command line search tool that runs in your web browser. It is like a limited Linux shell running within a browser window. This is truly creative stuff.

I have put a link in my side bar to the goosh search tool. Check it out for yourself.