Not too many rows. You can try if you wanted to. I am attaching the folder zipped.
How about a simple approach like:
Code:
ub ActivateASheet()
Dim SShtName As String
Dim Wbk As Workbook
Dim Ssheet As Worksheet
For Each Wbk In Application.Workbooks
On Error GoTo Done
Wbk.Activate
On Error Resume Next
SShtName = Sheet1.Range("A1")
Set Ssheet = Sheets(SShtName)
If Not Ssheet Is Nothing Then
Ssheet.Activate
Exit Sub
End If
Next Wbk
Done:
ThisWorkbook.Activate
End Sub
Can you tweak it to work for my scenario.
Thanks,
Dhiraj
Bookmarks