how to open a workbook and unhide a sheet in Excel using VBA?

Question

Dim wbOut As Workbook
Dim val As String
Dim outPath As String    
val = Sheet1.Range("A1").Value
outPath = Sheet1.Range("B1").Value
Set wbOut = W