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