Not able to hide Excel worksheet (2nd Time) through VBA

[nuage]

HI,
Not able to hide Worksheets (2nd Time) in following code. Although with first occurrence i.e. Sourcewb worksheets get hide. But with SourcewbA code all the worksheet remains unhide. I tried to even close first and then open second file.


Dim Sourcewb As Worksheet
Dim SourcewbA As Worksheet


Workbooks.Open Filename:= "NTRv1" & ".xlsm"


' Hiding Worksheet of First Workbook
For Each Sourcewb In ThisWorkbook.Worksheets
If Sourcewb.Name <> ThisWorkbook.ActiveSheet.Name Then
Sourcewb.Visible = False
End If
Next Sourcewb


Workbooks("NTRv1" & ".xlsm").Save
Workbooks("NTRv1" & ".xlsm").Close
Workbooks.Open Filename:= "NTRv2" & ".xlsm"
Workbooks("NTRv2").Activate



' Hiding Worksheet of Second Workbook
For Each SourcewbA In ThisWorkbook.Worksheets
If SourcewbA.Name <> ThisWorkbook.ActiveSheet.Name Then
SourcewbA.Visible = False
End If
Next SourcewbA

 

[Yongle]

wrong workbook?

For Each SourcewbA In [COLOR=#ff0000]ActiveWorkbook[/COLOR].Worksheets
If SourcewbA.Name <> [COLOR=#ff0000]ActiveWorkbook[/COLOR].ActiveSheet.Name Then

or perhaps

For Each SourcewbA In [COLOR=#ff0000]ActiveWorkbook[/COLOR].Worksheets
If SourcewbA.Name <> ThisWorkbook.ActiveSheet.Name Then

depends which one is correct for your situation

 

[nuage]

wrong workbook?

For Each SourcewbA In [COLOR=#ff0000]ActiveWorkbook[/COLOR].Worksheets
If SourcewbA.Name <> [COLOR=#ff0000]ActiveWorkbook[/COLOR].ActiveSheet.Name Then

or perhaps

For Each SourcewbA In [COLOR=#ff0000]ActiveWorkbook[/COLOR].Worksheets
If SourcewbA.Name <> ThisWorkbook.ActiveSheet.Name Then

depends which one is correct for your situation

Thanks a lot. First code deliver the desired result.