Hi
Try :
Sub Test()
Dim ws As Worksheet
Sheets("Brands").Select
Sheets("Brands").UsedRange.Copy
Windows("Comparsheet.xls").Activate
For Each ws In Worksheets
If ws.UsedRange.Cells.Count < 1 Then ws.Delete
Next ws
Application.DisplayAlerts = True
Set ws = Worksheets.Add(After:=Sheets(Sheets.Count))
'ws.Name = ActiveSheet.Name
With ws
ws.Range("A1").PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub
On Wed, Jun 1, 2011 at 3:37 PM, Jorge Marques <leote.w...@gmail.com> wrote:
> Hi guys i have this macro to copy paste sheets to another sheet on another
> workbook, can you help me?i need everytime i run the macro to paste it to
> the next blank worksheet of the destiny workbook. 1001 thanks in advance
>
>
> Sub copy_another_sheet()
> '
> ' copy Macro
> '
> ' Atalho por teclado: Ctrl+p
> '
>
> Application.ScreenUpdating = False
> Sheets("Brands").Select
> Cells.Select
> Selection.copy
> Windows("Comparsheet.xlsx").Activate
> Sheets("Sheet1").Select ------> I think i
> have to change this but i don´t know how!
> Cells.Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
> Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
> SkipBlanks:=False, Transpose:=False
> Windows("Brand.xlsx").Activate
> Range("A1").Select
> Application.ScreenUpdating = True
>
> End Sub
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
