MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Message for Robb-Thank you, one more question.


Posted by A.R. on August 22, 2001 8:25 AM

Robb,

Thanks, your message at mrexcel.com/wwwboard/messages/27830.html worked. However, I forgot to tell you that I need Excel to capitalize in two more columns. (I need it in columns C, E, and F.) I tried to copy the codes twice in the Visual Basic Editor and changing the column letters, but I got an error message.


Posted by Robb on August 22, 2001 2:43 PM

A quick way to fix would be:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
Target = Format(Target, ">")
ElseIf Not Intersect(Target, Columns("E")) Is Nothing Then
Target = Format(Target, ">")
ElseIf Not Intersect(Target, Columns("G")) Is Nothing Then
Target = Format(Target, ">")
Else
End If
End Sub

Again, just change the columns to what you want. If you need more, just add more "elseif's".

Any help?

Regards