save and overwrite worksheet

[marc005]

We I run the below code:

Sub Macro1()
Sheets("Historyt").Select
Sheets("Historyt").Copy Before:=Workbooks("Merg.xlsm").Sheets(1)
End Sub

and a worksheet called "Historyt" already exist in the file Merg.xlsm
it always create Historyt(2). I dont want that. I want is to overwrite "Historyt"
How can this be achieved?

 

[S.H.A.D.O.]

I think you need to delete the existing sheet first with something like:-

Workbooks("Merg.xlsm").Sheets("Historyt").Delete

I hope this helps!

 

[S.H.A.D.O.]

Or maybe something like this:-

Sub CopyWorkSheet()
    Dim WB1 As Workbook
    Dim WB2 As Workbook
    Set WB1 = Workbooks("ThisBook.xlsm") ' <<< Change to this WorkBook name.
    Set WB2 = Workbooks("Merg.xlsm")
'   Copy from WB1 to WB2
    WB1.Sheets("Historyt").Copy _
        Before:=WB2.Sheets(1)
End Sub

I hope this helps!

 

[marc005]

Thanx for your input. Yeahhh you are right I need to delete