Dim cel As Range, FindRng As Range, x As Long For Each cel In [M62:AG62] cel.Select Set FindRng = Range(cel, cel.Offset(4)) For Each cel2 In FindRng If cel2 = [A4] Then x = cel.Column - 11 GoTo here End If Next cel2 Next cel here:
|macro for finding text and replacing||7||43|
|Moving Excel to AaaS||4||36|
|How to change associated macro so it asks for folder rather than using hardcoded folder?||4||34|
|From msAccess SaveAs an excel file SILENTLY without opening excel||4||28|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!