vba - Quickly format cells in excel -

vba - Quickly format cells in excel -

i trying run reverse update on spreadsheet remove formatting range of cells. iterating through cells quick plenty making internal reference appears slow code downwards dramatically.

set rng1 = thisworkbook.worksheets(ws.name).range("a17:bb300") each c1 in rng1 if c1.interior.pattern = xlsolid c1.interior .pattern = xlnone .tintandshade = 0 .patterntintandshade = 0 end end if next c1

cheers

or can determine cells first, format in 1 go:

dim rng1 range, rng2 range set rng1 = thisworkbook.worksheets(ws.name).range("a17:bb300") each c1 in rng1 if c1.interior.pattern = xlsolid if rng2 nil set rng2 = c1 else set rng2 = union(rng2, c1) end if end if next c1 rng2.interior .pattern = xlnone .tintandshade = 0 .patterntintandshade = 0 end

excel vba excel-vba