Free for PREMIUM members
Dim cel As Range
For Each cel In Range("BA6:BA320")
Dim wk As Range, x As Long
ActiveWorkbook.Names.Add Name:="ThisWeek", RefersTo:=cel.EntireRow
x = [ThisWeek].Row
cel.Offset(0, -3) = x
Set wk = [ThisWeek].Find(What:="week", After:=Cells(x, 53), LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext)
cel.Offset(0, -1) = wk
Open in new window
Author Closing Comment
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
If you are experiencing a similar issue, please ask a related question
Join the community of 500,000 technology professionals and ask your questions.
Join & Ask a Question
Join our community for more solutions or to ask questions.
For immediate help use Live now!