Have 'office 365' solely used for a selection of notebooks that contain a series of accounts worksheets.
They've been in use for some time but have recently had problems with opening at a specific cell...which for working needs is set at A16
There have been quite a few MS online repairs to try and solve things...but problem continues...
Here is the code being used...
Private Sub worksheet_activate()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Me.ScrollArea = "A16:y56"
With ThisWorkbook.Sheets("prsnldet")
Me.Range("c4").Value = .Range("g28").Value 'business
Me.Range("c5").Value = .Range("g28").Value 'description
Me.Range("w4").Value = .Range("n16").Value 'date from
Me.Range("w5").Value = .Range("n18").Value 'date to
Application.ScreenUpdating = True
Worksheets("sept").Range("a16").Select
End With
End Sub
Anyone spot anything that could maybe cause this to not function....or maybe recommend
some changes that may get this working as meant
Thank you
They've been in use for some time but have recently had problems with opening at a specific cell...which for working needs is set at A16
There have been quite a few MS online repairs to try and solve things...but problem continues...
Here is the code being used...
Private Sub worksheet_activate()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Me.ScrollArea = "A16:y56"
With ThisWorkbook.Sheets("prsnldet")
Me.Range("c4").Value = .Range("g28").Value 'business
Me.Range("c5").Value = .Range("g28").Value 'description
Me.Range("w4").Value = .Range("n16").Value 'date from
Me.Range("w5").Value = .Range("n18").Value 'date to
Application.ScreenUpdating = True
Worksheets("sept").Range("a16").Select
End With
End Sub
Anyone spot anything that could maybe cause this to not function....or maybe recommend
some changes that may get this working as meant
Thank you