Code to unhide worksheet in multiple files within the same folder

[sazi22]

I have a bunch of files that I need to unhide a worksheet in. The sheet has the same name in all files and all files are located in one folder. How would I do this?

Thanks.

 

[PHV]

Have a look at the Dir VBA function, the Open method of the Workbooks collection, the Visible property of the Worksheet object, ...

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[SkipVought]

Hi,

Check out the FileSystemObject. You can look thru all the workbooks in a folder.

Is the Sheet Name identical in each workbook?

Skip,
[sub]
[red]Be Advised![/red]
The band of elderly oriental musicians, known as Ground Cover, is, in reality...
Asian Jasmine![/sub]

 

[sazi22]

Thanks! Yes... the sheet name is identical.

 

[OlafBogus]

If it is Excel i would make a .vbs file along the lines of: -

Dim Shell, Excel
Dim myFolder,myItems,numitems,mySheet
Set Excel = CreateObject("excel.Application")
Set Shell = CreateObject("Shell.Application")
dDir = "C:\myDir"
mySheet = "sheet 1"
set myFolder = shell.NameSpace(sDir)
If (Not myFolder Is Nothing) Then
    set myItems = myFolder.Items
    If (not myItems Is Nothing) Then
        numitems = myItems.Count
        If(numitems > 0) Then
        For n = 0 To numitems
            myFilePath = myItems.Item(n).Path
            Excel.Workbooks.Open(myFilePath)
            Excel.Sheets(mySheet).Select
            Excel.ActiveWindow.SelectedSheets.Visible = True
            Excel.ActiveWorkbook.Save
            Excel.Application.Quit
        Next
    End If
End If