With End using multiple ranges

E

ExcelMonkey

Is it possibe to use With End stmts on muliple ranges. Below I am adjsuting
the properties of one range. If I want to do this to two separate ranges,
can I append the With part of the statement to also take the second range
("SecondCell"). Thanks

With Range("FirstCell")
.Interior.Pattern = xlGray50
.Locked = True
.FormulaHidden = False
.Validation.InCellDropdown = False
End With
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Function/Sub to change cell properties 7
Disable Cell and take out Data Validation 5
Word Macro for multiple searches, incl. in footnotes 2
Loop is slow trying array code 17
A For Each in Range... with a .Find(what:="TJ", ... in it problem 15
Unexplained failure of wdFindStop at end of search 0
Automation of worksheet protection from Access VBA - can't insertrows afterwards 1
multiple value choices for If range().value = "xxx" 1

Top