I have a simple spreadsheet and I'd like to hide columns with column header dates older than today.

Column A has Names in each each A2 down
Columns B through N = Dates

Then data in cells B2

Cell A1 has the Today formula =TODAY()

10/5/2016 9/1/2016 9/8/2016 9/15/2016 9/22/2016 9/29/2016 10/6/2016 10/13/2016 10/20/2016 10/27/2016 11/3/2016 11/10/2016 11/17/2016 11/24/2016
Fred
Nancy
Sam
Jack
Frank

I need help with the macro to hide the columns and data that are older than today or compared to cell A1.