Dealing with merged cells

[Chrisso]

I have a range name for a cell of MYNAME.

MYNAME started off life just being a single cell and I could do all
sorts of wonderful things to it concisely:

Range("MYNAME").ClearContents
Range("MYNAME").Locked = True

I have now made MYNAME a merged cell that spans two columns (A1:B1).
Now I find for my code to work I have to select the merged cells first
then perform my operations:

Range("MYNAME").Select
Selection.ClearContents
Selection.Locked = True

Is there a way to deal with merged cells so that I can perform the
above operations with just one line of code to make the code easier to
read and follow?

Chrisso

 

[Barb Reinhardt]

I'd probably do it this way

Sub Test()

With Range("MYNAME").MergeArea
.ClearContents
.Locked = True
End With

End Sub

HTH,
Barb Reinhardt

 

[Tom Ogilvy]

I is unclear if the definition of myname is 1 cell or 2, but if it is
actually defined to be two cells or could be two cells, then I would alter it
as such:


Sub Test()

With Range("MYNAME")(1).MergeArea
.ClearContents
.Locked = True
End With

End Sub

 

[Barb Reinhardt]

Tom,

What's the difference between

Range("MYNAME")(1).MergeArea

and

Range("MYNAME").MergeArea

Thanks,
Barb

 

[Tom Ogilvy]

If:
Name: MyName
Refersto: Sheet1!$A$1:$B$2

then
Range("MYNAME").MergeArea

raises an error

Range("MYNAME")(1).MergeArea

doesn't.