Jedno od mogućih rešenja
Code:
Sub AktivirajA1()
Dim list As Worksheet
Application.ScreenUpdating = False
For Each list In ActiveWorkbook.Worksheets
If list.Visible Then
list.Activate
Range("A1").Select
End If
Next list
Sheets(1).Activate
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub
Ovo radi 'ručno tj treba da se ručno pokrene da bi odradilo to što radi, ako ti treba automatski ubaci ovaj kod u Workbook Before Close dogadjaj.
Možda je tačno da je sve već rečeno, samo nisu svi sve čuli i razumeli ...