It worked perfectly:), 1000 thanks Mahesh
2011/6/1 Mahesh parab
> 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
>
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)
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
'
