Dynmically Activate

[vamshikrishna]

I want to use the below code dynamically
Windows("Fujitsu Satisfaction Survey grouped by incident.xlsx").Activate
i mean, i want to set the filename in any cell of Excel and from that cell it has to window name, can it is possible

 

[vletm]

vamshikrishna
Paste next to ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    wsc = "Fujitsu Satisfaction Survey grouped by incident.xlsx"
    If Target.Value = wsc Then
        Windows(wsc).Activate
        If Err.Number <> 0 Then MsgBox "Cannot Activate File:" & Chr(13) & wsc, vbCritical, Err.Description
    End If
End Sub