Hi Folks

All I want to do is:
select a cell
activate cell
Go to start of cell
Highlight first five characters
Cut these characters
Move left to adjacent cell
paste characters to cell
Move down
Move right

I'm quite happy to use a keyboard control to activate the
macro each time I need it.

I can do this in recorder but the cell ranges are hard
coded. I need it to be local to the cell I am in. All
help much appreciated.

Joe

Joe,

try this:

Sub MoveAround()

Dim CellVal As String

CellVal = ActiveCell.Text
Range(ActiveCell.Address) = Right(CellVal, Len(CellVal) - 5)
ActiveCell.Offset(0, 1).Select
Range(ActiveCell.Address) = Left(CellVal, 5)

End Sub



wrote in message
...
Hi Folks

All I want to do is:
select a cell
activate cell
Go to start of cell
Highlight first five characters
Cut these characters
Move left to adjacent cell
paste characters to cell
Move down
Move right

I'm quite happy to use a keyboard control to activate the
macro each time I need it.

I can do this in recorder but the cell ranges are hard
coded. I need it to be local to the cell I am in. All
help much appreciated.

Joe

Joe,

forgot the "Move down - Move right" part:

ActiveCell.Offset(1, 1).Select



"Fred" wrote in message
...
Joe,

try this:

Sub MoveAround()

Dim CellVal As String

CellVal = ActiveCell.Text
Range(ActiveCell.Address) = Right(CellVal, Len(CellVal) - 5)
ActiveCell.Offset(0, 1).Select
Range(ActiveCell.Address) = Left(CellVal, 5)

End Sub



wrote in message
...
Hi Folks

All I want to do is:
select a cell
activate cell
Go to start of cell
Highlight first five characters
Cut these characters
Move left to adjacent cell
paste characters to cell
Move down
Move right

I'm quite happy to use a keyboard control to activate the
macro each time I need it.

I can do this in recorder but the cell ranges are hard
coded. I need it to be local to the cell I am in. All
help much appreciated.

Joe

Hi Fred

You're a champ. Thanks for the help.
-----Original Message-----
Joe,

forgot the "Move down - Move right" part:

ActiveCell.Offset(1, 1).Select



"Fred" wrote in message
...
Joe,

try this:

Sub MoveAround()

Dim CellVal As String

CellVal = ActiveCell.Text
Range(ActiveCell.Address) = Right(CellVal, Len
(CellVal) - 5)
ActiveCell.Offset(0, 1).Select
Range(ActiveCell.Address) = Left(CellVal, 5)

End Sub



wrote in message
...
Hi Folks

All I want to do is:
select a cell
activate cell
Go to start of cell
Highlight first five characters
Cut these characters
Move left to adjacent cell
paste characters to cell
Move down
Move right

I'm quite happy to use a keyboard control to activate
the
macro each time I need it.

I can do this in recorder but the cell ranges are hard
coded. I need it to be local to the cell I am in.
All
help much appreciated.

Joe





.