S
SIGE
Hi There,
I have created through VBA a couple of Names:
eg:
VBA1 = Sheet1!$B$1:$B$5
VBA2 = Sheet1!$C$10:$C$50
etc ...
-I do not see the light anymore in all the sample codes i found!!!-
Is there a way to copy all the ranges of my Names beginning with "VBA"
to a new workbook
(NOT the Names of the ranges (eg. VBA1)
nor the address (eg. Sheet1!$B$1:$B$5)
but the content in cells B1:B5 and C10:C50 and ... like Copy=> Paste
Special
A bit like: ...
Application.Goto Reference:="VBA1"
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats
Application.Goto Reference:="VBA2"
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats
But looping ... so that each Name reference gets copied into the new
workbook, putting them on the same worksheet next to each other???
Looking like this in the new workbook:
A B ...
1 B1 C10
2 B2 C11
3 ... ...
Best Regards, Sige
Sub ListVBARangeNames()'Will display the Names in my workbook starting
with "VBA"
Dim RN As Object
Dim listrn As String
For Each RN In ActiveWorkbook.Names
If RN.Name Like "VBA*" Then
listrn = listrn & vbCr & RN.Name
End If
Next RN
MsgBox listrn
End Sub
I have created through VBA a couple of Names:
eg:
VBA1 = Sheet1!$B$1:$B$5
VBA2 = Sheet1!$C$10:$C$50
etc ...
-I do not see the light anymore in all the sample codes i found!!!-
Is there a way to copy all the ranges of my Names beginning with "VBA"
to a new workbook
(NOT the Names of the ranges (eg. VBA1)
nor the address (eg. Sheet1!$B$1:$B$5)
but the content in cells B1:B5 and C10:C50 and ... like Copy=> Paste
Special
A bit like: ...
Application.Goto Reference:="VBA1"
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats
Application.Goto Reference:="VBA2"
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats
But looping ... so that each Name reference gets copied into the new
workbook, putting them on the same worksheet next to each other???
Looking like this in the new workbook:
A B ...
1 B1 C10
2 B2 C11
3 ... ...
Best Regards, Sige
Sub ListVBARangeNames()'Will display the Names in my workbook starting
with "VBA"
Dim RN As Object
Dim listrn As String
For Each RN In ActiveWorkbook.Names
If RN.Name Like "VBA*" Then
listrn = listrn & vbCr & RN.Name
End If
Next RN
MsgBox listrn
End Sub