Jump to Today's Date with hyperlink or Macro

I have a spreadsheet with dates horizontally in row 2.
I want to be able to click on a hyperlink or a macro button to jump to the cell with the current date in it and preferably highlight the entire column below.

Thanks in advance

.
.
This macro is in the Sheet Level module. When the sheet is activated, the macro selects the cell in row 2 with the current date.

You can take the same code, modify it slightly to work in the ThisWorkbook module Open Event so when the workbook is first opened, it jumps to the current date.
You can also place the code into a routine module activated by a command button and cause the same effect. Slight modification required.

Please Login or Register  to view this content.

For your purposes ... activating by a command button :

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Added the last three lines to highlight the column.

You can use the above macro with a command button to activate it. Paste the macro into a routine module.

Please Login or Register  to view this content.

Here is a reference for colors : http://access-excel.tips/excel-vba-color-code-list/


If you change this line:

Please Login or Register  to view this content.

to :

Please Login or Register  to view this content.

You can use the ColorIndex numbers (on the resource website above) to gain more choices. Place the color number where the ?? marks are.


It's really late here and I need to sleep. I'll think about the scrolling part tomorrow. Will let you know if I get it put together.

.
.
If you just want to clear all colors from the sheet ...

Place this line in its own macro activated by its own command button. Something like:

Please Login or Register  to view this content.

.
.
Try this addition to the code ....

Please Login or Register  to view this content.