Rond merge help

  • Thread starter Thread starter Andrew P.
  • Start date Start date
A

Andrew P.

Hi All

Im trying to make the example 1 work from Copy3, but Im having trouble
referring to multiple named ranges - most I can get to work is one named
range (always only 1 [merged] cell). Whats the correct method?
-> Set sourceRange = .Range("")

Also, is there a way to get the names of the ranges into row 1?

Thanks a heap
Andrew
 
To get range names into row 1, try:

Sub NameLister()
Dim n As Name
i = 0
For Each n In ThisWorkbook.Names
Range("A1").Offset(0, i).Value = n.Name
i = i + 1
Next
End Sub
 
Hi Gary

Sorry, I dont follow it - is this meant to sit in the merge macro? FYI the
code Im using is from http://www.rondebruin.nl/copy3.htm

Thanks
Andrew

Gary''s Student said:
To get range names into row 1, try:

Sub NameLister()
Dim n As Name
i = 0
For Each n In ThisWorkbook.Names
Range("A1").Offset(0, i).Value = n.Name
i = i + 1
Next
End Sub

--
Gary''s Student - gsnu200901


Andrew P. said:
Hi All

Im trying to make the example 1 work from Copy3, but Im having trouble
referring to multiple named ranges - most I can get to work is one named
range (always only 1 [merged] cell). Whats the correct method?
-> Set sourceRange = .Range("")

Also, is there a way to get the names of the ranges into row 1?

Thanks a heap
Andrew
Click to expand...
Click to expand...
 
Back
Top