Unfortunately this
Selection.AutoFill Destination:=ActiveCell.Range(x), Type:=xlFillDefault
gives the error select only one cell.
If I use x="a1:L1" it works
dim X as range
Set x = selection
gives erro that is my problem.
"Bob Flanagan" wrote:
dim X as range
Set x = selection
or
Dim X as range
Set X = Range(activecell, activecell.offset(6,1))
Bob Flanagan
Macro Systems
144 Dewberry Drive
Hockessin, Delaware, U.S. 19707
Phone: 302-234-9857, cell 302-584-1771
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel
"lwm" wrote in message
...
I am developing several utilities that I can give to my customers. I am a
financial and accounting consultant to businesses specializing in Excel.
The user selects a cell.
I want to place that cell in a variable so I can use it in the future.
i.e. x= cell selected.
Location of new stuff cells(1,x+6)
Or
range = range(x, x=6)
range(x).select
Or
The user selects a range a12.r12
I want to save that range in a variable so I can use it in a future
function.
'X= "A12.R12" won't work because it is absolute. I need a relative
address..
I am looking for something like
X= range.select
Selection.AutoFill Destination:=ActiveCell.Range(x), Type:=xlFillDefault
This selects the appropriate range and then copies the appropriate data.