What is wrong in this Sub?

[Michael]

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

 

[Frank Kabel]

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

 

[Tom Ogilvy]

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

worked for me.

 

[Don Guillett]

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