You're welcome.
"Jeremy H via OfficeKB.com" wrote:
Thank you very much!
Works like a charm!
Rowan wrote:
You could use the worksheet activate event:
Private Sub Worksheet_Activate()
Dim tday As Range
Dim eCol As Integer
eCol = Cells(8, Columns.Count).End(xlToLeft).Column
With Range(Cells(8, 2), Cells(8, eCol))
Set tday = .Find(what:=Date)
If Not tday Is Nothing Then
tday.Select
End If
End With
End Sub
This is worksheet event code. Right click the sheet tab, select view code
and paste the code in there.
Hope this helps
Rowan
Ok I have a workbook that tracks Vacation Dates, Attendence, and Schedules
for all employees in a department.
[quoted text clipped - 41 lines]
opened, know how do I process that variable into selecting the appropriate
column?
|