Sub chnage_address()
Dim rng As Name, rngaddress As String, k As Long
k = 30
For Each rng In ThisWorkbook.Names
rngaddress = rng.RefersTo
rng.RefersTo = Left(rngaddress, InStrRev(rngaddress, $)) k
Next
End Sub
On Fri, Mar 7, 2014 at 12:54 PM, Prafull Jadhav
try this,
Sub namerange()
Dim rngRange As Range
Dim rngCell As Range
Set rngRange = Application.InputBox(select range, , , , , , , 8)
For Each rngCell In rngRange.Columns(1).Cells
ThisWorkbook.Names.Add rngCell, rngCell.Offset(, 1).Formula
Next
End Sub
On Thu, Mar 6, 2014 at 11:24 PM,
Dear All,
Good Afternoon,
I have one query .
Can we change the Name Range with help of VBA
for example below are the name range in my excel file I have to extend
the range by 2...i.e 85000.
if it is possible ..Kindly provide the code for the same.
Abhijit_ =Details!$AJ$1:$AJ$65000
