I have a spreadsheet that I use as a group calendar. I have an autorun macro that looks at a cell at the end of the spreadsheet which has the code "Today()" searches for that date (today's date) on the calendar, then moves the focus to that cell. Recently I started to get a Runtime Error 91 on this macro. I can't find any help on what the problem is. Below is the macro code and here is a link to my spreadsheet. Can someone help fix this problem?
Sub Autpen()
Dim Variable1
Range("iv1").Select
Variable1 = ActiveCell.Value
Cells.Find(What:=Variable1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub
Sub Autpen()
Dim Variable1
Range("iv1").Select
Variable1 = ActiveCell.Value
Cells.Find(What:=Variable1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub