Hi everyone,

I am getting an error in this:

Sub MoveCells()
Columns("b:b").Select
Selection.Cut
Columns("g:g").Select
Current.Selection
Selection.Paste 'Here I am getting the error
End Sub

Anything wrong with "Paste"?

Thanks,
Mike

Hi
try
Sub MoveCells()
Columns("b:b").cut Destination:=Columns("g:g")
end sub



--
Regards
Frank Kabel
Frankfurt, Germany

"Michael" schrieb im Newsbeitrag
om...
Hi everyone,

I am getting an error in this:

Sub MoveCells()
Columns("b:b").Select
Selection.Cut
Columns("g:g").Select
Current.Selection
Selection.Paste 'Here I am getting the
error
End Sub

Anything wrong with "Paste"?

Thanks,
Mike

Sub MoveCells()
Columns("b:b").Cut Destination:=Columns("G:G")
End Sub

worked for me.

--
Regards,
Tom Ogilvy

"Michael" wrote in message
om...
Hi everyone,

I am getting an error in this:

Sub MoveCells()
Columns("b:b").Select
Selection.Cut
Columns("g:g").Select
Current.Selection
Selection.Paste 'Here I am getting the error
End Sub

Anything wrong with "Paste"?

Thanks,
Mike

Sub MoveCells()
Columns("b").Cut Columns("g")
End Sub


--
Don Guillett
SalesAid Software

"Michael" wrote in message
om...
Hi everyone,

I am getting an error in this:

Sub MoveCells()
Columns("b:b").Select
Selection.Cut
Columns("g:g").Select
Current.Selection
Selection.Paste 'Here I am getting the error
End Sub

Anything wrong with "Paste"?

Thanks,
Mike