aspcrowley
New Member
- Joined
- Sep 17, 2008
- Messages
- 9
I created a macro to make my spreadsheets open to today's date. I copied this from an article in CFO magazine by Bill Jelen. The macro which I copied into This Workbook in Microsoft Excel Objects is:
Private Sub Workbook_Open()
Worksheets("Sheet1").Select
x = Day(Date)
On Error Resume Next
Worksheets("Sheet1").Columns(2).Find(What:=x, LookIn:=xlValues).Activate
Application.Goto Selection, True
End Sub
Now, I have no undo function, cannot toggle between open files and can't open new files from explorer, only by opening from within Excel.
In addition, the active cell appears to be constantly updating. In the content bar at the top, the contents appear to be continuously updating as the content of any cell is flickering as if it is being rapidly updated.
Can anyone help me?
Private Sub Workbook_Open()
Worksheets("Sheet1").Select
x = Day(Date)
On Error Resume Next
Worksheets("Sheet1").Columns(2).Find(What:=x, LookIn:=xlValues).Activate
Application.Goto Selection, True
End Sub
Now, I have no undo function, cannot toggle between open files and can't open new files from explorer, only by opening from within Excel.
In addition, the active cell appears to be constantly updating. In the content bar at the top, the contents appear to be continuously updating as the content of any cell is flickering as if it is being rapidly updated.
Can anyone help me?
