error en excel

lacho_p
09 de Febrero del 2005
tengo el siguiente código

Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True

Set xllibro = xlapp.Workbooks.Open(nombre)


xlapp.Columns("S:S").Select
xlapp.selection.Copy
xlapp.Columns("G:G").Select
xlapp.selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False

xllibro.ActiveWorkbook.Save

xllibro.Close
xlapp.Quit

es decir q de la columna S pase los datos a G sin tomar en cuenta las celdas sin contenido, pero al ejecutar el código en visual basic me parece Error 1004" En el metodo pastespecial de la clase range

alguien sabe cual es el error??