I am trying to find all no border cells, and replace them with thick box borders.
When I used the find and replace, it replaced some but not all, hence the 5 additional macros added to border what "find and replace" did not perform.
Then, I combined all of the code into one "RunREPLACEGRIDSMacros".
How can I have just one macro that does it all?
Is there something in the cell formatting that would keep the standard "find and replace" (no border cells to thick box borders) from working?
And finally, what is wrong with the code below that I have as a part of "RunREPLACEGRIDSMacros"?
Sub ADDGRIDLINES()
'
' ADDGRIDLINES Macro
'
'
Range("A1:AD55,A56:R71,T58:Z72").Select
Range("T58").Activate
ActiveWindow.SmallScroll Down:=15
Range( _
"A1:AD55,A56:R71,T58:Z72,A74:O74,A75:D95,E75:K95,M75:O95,P93:Q93,R93,P94:Q94,R94,Q78:Y78,Q81:Y81" _
).Select
Range("Q81").Activate
Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub
Thank you!
Bookmarks