Hey Ranjan qcan want if cell contain any 3 Capital letter then color hole cell.............but your solution color only first 3 letter .......
On Thu, Jul 28, 2011 at 5:32 PM, Rajan_Verma <rajanverma1...@gmail.com>wrote: > Hope it will Help you > > Sub HighLight() > > Application.ScreenUpdating = False > On Error Resume Next > Dim cell As Range > Dim rng As Range > Dim st As String > Dim loc As Integer > Dim n as string > st = "" > Set rng = ActiveSheet.UsedRange > For Each cell In rng > If cell.Value <> "" Then > st = st & cell.Value > End If > Next > > For i = 1 To Len(st) > n = Mid(st, i, 1) & Mid(st, i + 1, 1) & Mid(st, i + 2, > 1) > If Asc(Mid(n, 1, 1)) > 64 And Asc(Mid(n, 1, 1)) < 91 And > Asc(Mid(n, 2, 1)) > 64 And Asc(Mid(n, 2, 1)) < 91 And Asc(Mid(n, 3, 1)) > > 64 > And Asc(Mid(n, 3, 1)) < 91 Then > > > Cells.Find(What:=n, After:=ActiveCell, > LookIn:=xlFormulas, LookAt:= _ > xlPart, SearchOrder:=xlByRows, > SearchDirection:=xlNext, MatchCase:=False _ > , SearchFormat:=False).Activate > loc = WorksheetFunction.Find(n, > ActiveCell.Value, 1) > ActiveCell.Characters(loc, 3).Font.ColorIndex = 26 > ActiveCell.Characters(loc, 3).Font.Bold = True > i = i + 3 > End If > Next > > Application.ScreenUpdating = True > > End Sub > > -----Original Message----- > From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] > On Behalf Of qcan > Sent: Thursday, July 28, 2011 3:40 AM > To: MS EXCEL AND VBA MACROS > Subject: $$Excel-Macros$$ Formula or macro to find a word that is all > capitlaized > > Hi, > > Can anyone help me with some sort of formula or Macro that would > identify any word (minmum 3 letters) that is all in caps. I would like > whatever is found to be highlighted in yellow. > > Thanks. > > -- > > ---------------------------------------------------------------------------- > ------ > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > -- ......................... -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel