B
BEEJAY
Need to assign Range names to multiple files.
With exception of "distance" between 1st and 2nd, the R1C1 should always be
fine.
Therefore need a "break" in code so that I have a chance to move to the next
active cell location, before code continues.
The following is my feeble attempt, based on what I can find in ng.
However it comes up with Run-Time error '1004': Method 'Range' of
object'_Global' failed.
I think my actual R1C1 references are not quite correct, but that is easily
fixed when I can actually walk thru code that works.
Sub NameRangeCC()
' Use cursor to select required cell.
ActiveCell.Select
Range("R1C1").CurrentRegion.Name = "PriceSub"
'Use cursor to select next required cell.
ActiveCell.Select
Range("R1C1").CurrentRegion.Name = "OptionSub"
Range("R2C1").CurrentRegion.Name = "Price_Option_Sub"
Range("R3C-1").CurrentRegion.Name = "Disc_Factor"
Range("R1C2").CurrentRegion.Name = "CostTotal"
Range("R7C-1").CurrentRegion.Name = "SellFactor"
Range("R1C2").CurrentRegion.Name = "SellPrice"
End Sub
Thank-you
With exception of "distance" between 1st and 2nd, the R1C1 should always be
fine.
Therefore need a "break" in code so that I have a chance to move to the next
active cell location, before code continues.
The following is my feeble attempt, based on what I can find in ng.
However it comes up with Run-Time error '1004': Method 'Range' of
object'_Global' failed.
I think my actual R1C1 references are not quite correct, but that is easily
fixed when I can actually walk thru code that works.
Sub NameRangeCC()
' Use cursor to select required cell.
ActiveCell.Select
Range("R1C1").CurrentRegion.Name = "PriceSub"
'Use cursor to select next required cell.
ActiveCell.Select
Range("R1C1").CurrentRegion.Name = "OptionSub"
Range("R2C1").CurrentRegion.Name = "Price_Option_Sub"
Range("R3C-1").CurrentRegion.Name = "Disc_Factor"
Range("R1C2").CurrentRegion.Name = "CostTotal"
Range("R7C-1").CurrentRegion.Name = "SellFactor"
Range("R1C2").CurrentRegion.Name = "SellPrice"
End Sub
Thank-you