Copy sheet then replace with existing.

[asyamonique]

Sub Button3_Click()
Dim wbk As Workbook
Set wbk = Workbooks.Open("C:\SHARING FILES\me\exports\0800")
wbk.Sheets(1).Copy After:=ThisWorkbook.Sheets(1)
wbk.Close False
ThisWorkbook.Sheets(1).Name = "0800"
End Sub

Good Day,
How can I reaplace the current worksheet with that code intead of creating another one?
Many Thanks

 

[asyamonique]

Private Sub Workbook_Open()
Dim i As Integer
Application.DisplayAlerts = False
For i = 2 To Worksheets.Count
Sheets(2).Delete
Next i
Application.DisplayAlerts = True
End Sub