Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
Dim ws As Worksheet
Dim wn As Window
Dim celHome As Range
Set celHome = ActiveCell
Application.ScreenUpdating = False
For Each ws In Wb.Worksheets
If Wb.Windows(1).Visible = True Then
ws.Select
Set wn = ActiveWindow
wn.DisplayGridlines = False
End If
Next
On Error Resume Next
Application.Goto celHome
On Error GoTo 0
End Sub
Set celHome = ActiveCell
Excel should respond by adding a large maroon dot in that margin
I'm hoping that isn't what you were requesting. But if it is, I'll program a macro for you tomorrow if someone hasn't beat me to it.
Brad