Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub find_Highlight_And_Unlock(UseSheet As Worksheet) Dim UseRange As Excel.Range Dim HoldRange As Excel.Range Dim lngCount As Long UseSheet.Activate Set UseRange = UseSheet.Range("A1") UseRange.Activate UseSheet.Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True).Activate Set HoldRange = UseSheet.Parent.activeRange HoldRange.Locked = False HoldRange.FormulaHidden = False ActiveSheet.Cells.Locked = True While (HoldRange.Address <> UseRange.Address) Set HoldRange = _ Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True).Activate Selection.Locked = False Selection.FormulaHidden = False Wend End Sub
With Application.FindFormat .Clear With .Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark2 .TintAndShade = -9.99481185338908E-02 .PatternTintAndShade = 0 End With End With
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|VBA how to use Like operator with phrasal verb?||4||25|
|Create email hyperlinks from regular text||3||29|
|Copy one row (from Word) into one cell||14||43|
|Excel User Form - Adding to multiple worksheets using one user form||4||22|
Join the community of 500,000 technology professionals and ask your questions.