how to replace ThisWorkbook with the book opened?

[jamiguel77]

Dim my_FileName As Variant
my_FileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xl*;*.xm*")
If my_FileName <> False Then
Workbooks.Open Filename:=my_FileName
Dim xActiveSheet As Worksheet
Set xActiveSheet = ThisWorkbook.ActiveSheet
Dim NewSheet As Worksheet
Dim wavanza As Boolean
Dim wrowIni As Integer
ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = "Resumen"

i test this code, open the file, but in this line:

ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = "Resumen"

i get this error:

Error '1004' this name is ocuppied try with another...


but the file havent a sheet named "Resumen"


any advice how to assign the workbook opened to thisWorkbook?


Thanks.

 

[JoeMo]

Thisworkbook will always be the workbook that holds the code that is running. Is there already a sheet named "Resumen" in the workbook the code is in?

 

[jamiguel77]

not exist the sheet name "RESUMEN"

Not sheet hidden.

the problem is this 2 lines:

Workbooks.Open Filename:=my_FileName

and:

ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = "Resumen"

how to assign Workbook opened to this variable: ThisWorkbook


Thanks

 

[Fluff]

How about

Dim my_FileName As Variant
Dim Wbk As Workbook
my_FileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xl*;*.xm*")
If my_FileName <> False Then
Set Wbk = Workbooks.Open(Filename:=my_FileName)
Dim xActiveSheet As Worksheet
Set xActiveSheet = Wbk.ActiveSheet
Dim NewSheet As Worksheet
Dim wavanza As Boolean
Dim wrowIni As Integer
Wbk.Sheets.Add(After:=Wbk.Sheets(Wbk.Sheets.count)).Name = "Resumen"

 

[jamiguel77]

Worked Fluff thanks thanks.....

 

[Fluff]

You're welcome

 

[jamiguel77]

<Fluff> escuse me ask here but this line not freeze pane

NewSheet.Cells(wRowIniProd, 1).Select
ActiveWindow.FreezePanes = True

where:

Wbk.Sheets.Add(After:=Wbk.Sheets(Wbk.Sheets.Count)).Name = "Resumen"
Set NewSheet = Wbk.ActiveSheet

i think my problem is:

ActiveWindow

havent activated the window.....

 

[Fluff]

As this is a completely different question, you need to start a new thread.