You can probably have a much simpler looping macro. Why not give us much
more info.

--
Don Guillett
SalesAid Software

"Curt" wrote in message
...
I am trying to use the active cell offset so as not to have to have a
procedure for each cell. This operation must be done repeated times.
Trying
to figure how to write one procedure that can reference where called from
so
as to call it the active cell to offset from. This way all I need to do is
call this procedure from the cells in repeated moves.May be up to 150
times
to enter data to use this method. If I can keep from having to use
addresses
in each call that is what I am after I think. It is hard to explain and
for
another to grasp.
I will toy with what you sent and see what I can do
Thanks



"Don Guillett" wrote:

It's not clear to me what you are trying to do but this will MOVE a cell
to
another worksheet withOUT any selections of any kind. This is a ONE liner
that I split using the continuation _ to prevent word wrap.

Sub cutpaste()
Sheets("sheet10").Range("d16").Cut _
Destination:=Sheets("sheet9").Range("G1")
End Sub

without the split
Sheets("sheet10").Range("d16").Cut
Destination:=Sheets("sheet9").Range("G1")

--
Don Guillett
SalesAid Software

"Curt" wrote in message
...
never used this. Am trying to call sub desc_1 with a macro in m16 of"
data".
This takes me to a diff wksheet "desc". I then input data. Want ot cut
and
paste the cell back to L16 of"data" i called from. This would be offset
1.
following is the subs I am trying to work with. Can I declare m16 of
sheet
the active cell?
Old Dog New Tricks
Thanks


Sub Desc_1()
'
' Desc_1 Macro
' Macro recorded 1/11/2007 by Default
'
Range("N16").Select
Sheets("Desc").Select
Range("A2").Select
Rows("2:2").RowHeight = 78
Columns("A:A").ColumnWidth = 39
Selection.NumberFormat = "@"
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Locked = True
Selection.FormulaHidden = False
End Sub
Sub Desc_1A()
'
' Desc_2 Macro
' Macro recorded 1/11/2007 by Default
'
Range("A2").Select
Selection.Cut
Sheets("Data").Select
Range("M16").Select
ActiveSheet.Paste
Selection.NumberFormat = "@"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = True
.MergeCells = False
End With
Selection.Locked = True
Selection.FormulaHidden = False
End Sub