Ready to get started with anonymous questions today? It's easy! Learn more.
Sub x() Dim rFind As Range, sAddr As String With Sheet1.Columns(10) Set rFind = .Find(What:="Sel", LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False) If Not rFind Is Nothing Then sAddr = rFind.Address Do rFind.Offset(, 5) = -1 * rFind.Offset(, 5) Set rFind = .FindNext(rFind) Loop While rFind.Address <> sAddr End If End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.