I have developed an Excel VBA script to auto-select the column of current date in SprintBacklog sheet, it may be useful.

    How to

        1. Open the excel document.

        2. Click "tools->Macro->Visual basic Editor"  or press Alt+F11 directly to open the IDE.

        3. Double click "ThisWorkBook" in the left-top tree of the IDE.

        4. Select "Workbook" in the combox resides in top panel of main text editor, it will add a function "Private Sub Workbook_Open()" automaticly.

        5. Paste the following code as the function body.

        6. Enjoy.

    Code

      '------------Code Begin-----------------
      Dim sheetname, currentDateString, nStartColumn, nEndColumn, nColorIndexBorder, nEndRow
   Dim constRowDate, constRowData, constColorBkNormal, constColorBkCurrent
   Dim a, row, col
   constRowDate = 5
   constRowData = 8
   constColorBkCurrent = 15
   constColorBkNormal = 2
   nColorIndexBorder = 12
   sheetname = "Sprint Backlog"
   currentDateString = Format(Date, "yyyymmdd")
   nStartColumn = Asc(Trim("J")) - Asc("A") + 1
   nEndColumn = nStartColumn
   nEndRow = constRowData
   For row = constRowData To 200
       a = ThisWorkbook.Sheets(sheetname).Cells(row, "A")
       If IsNull(a) = False And Len(Trim(CStr(a))) > 0 Then
           nEndRow = row
       End If
   Next row
   For col = nStartColumn To 200
       a = ThisWorkbook.Sheets(sheetname).Cells(constRowDate, col)
       If IsNull(a) = False And Len(Trim(CStr(a))) > 0 Then
           nEndColumn = col
       End If
   Next col
   ThisWorkbook.Sheets(sheetname).Range("J" + CStr(constRowData) + ":AF" + CStr(nEndRow)).Select
   Selection.Interior.ColorIndex = constColorBkNormal
   With Selection.Borders(xlEdgeLeft)
       .LineStyle = xlContinuous
       .Weight = xlThin
       .ColorIndex = nColorIndexBorder
   End With
   With Selection.Borders(xlEdgeTop)
       .LineStyle = xlContinuous
       .Weight = xlThin
       .ColorIndex = nColorIndexBorder
   End With
   With Selection.Borders(xlEdgeBottom)
       .LineStyle = xlContinuous
       .Weight = xlThin
       .ColorIndex = nColorIndexBorder
   End With
   With Selection.Borders(xlEdgeRight)
       .LineStyle = xlContinuous
       .Weight = xlThin
       .ColorIndex = nColorIndexBorder
   End With
   With Selection.Borders(xlInsideVertical)
       .LineStyle = xlContinuous
       .Weight = xlThin
       .ColorIndex = nColorIndexBorder
   End With
   With Selection.Borders(xlInsideHorizontal)
       .LineStyle = xlContinuous
       .Weight = xlThin
       .ColorIndex = nColorIndexBorder
   End With
   For col = nStartColumn To nEndColumn
       a = ThisWorkbook.Sheets(sheetname).Cells(constRowDate, col)
       If IsNull(a) = False And currentDateString = Format(a, "yyyymmdd") Then
           ThisWorkbook.Sheets(sheetname).Range(ThisWorkbook.Sheets(sheetname).Cells(constRowData, col), ThisWorkbook.Sheets(sheetname).Cells(nEndRow, col)).Select
           Selection.Interior.ColorIndex = constColorBkCurrent
       End If
   Next col
      '------------Code End-----------------