You can try this code
Change Workbook name as per your Workbook name
wkbMoveto Is that workbook in which you want to past data
wkbMoveFrom is that workbook from which you want to copy data
Sub Copydata()
Dim wkbMoveto As Workbook
Dim wkbmoveFrom As Workbook
Dim wksMoveto As Workshe
Dear Priti,
I want to copy sheet in specific sheets & not make new sheets.
This macro is creating new sheets.
Thanks & Regards,
sagar
On Mon, Jul 22, 2013 at 6:41 PM, priti verma wrote:
> Try this code
> Change Strpath as per your Path
>
> Sub creatnewWkb()
> Dim wkb As Workbook
> Dim strpa
Try this code
Change Strpath as per your Path
Sub creatnewWkb()
Dim wkb As Workbook
Dim strpath As String
Dim wks As Worksheet
Dim wkbnwebook As Workbook
Set wkb = ThisWorkbook
strpath = wkb.Path
For Each wks In wkb.Worksheets
wks.Copy
wks.Paste
ActiveWorkbook.SaveAs _
Filename:=
