VBA macro button to select todays date changes formatting???

[willhelm654]

Hello I hope somebody can shed some light for me.

I have a macro button on my s/sheet that runs pretty well to highlight todays date within a row. However it also red borders the left and right side of the column below and im not sure why? It is quite useful and I would like to have the same funciton on my second sheet but it only extends two rows as seen below.

Code is:

Sub Select_Today()
Dim C As Variant
With ActiveSheet
    With .Range("C3:HK3")
        C = Application.Match(CLng(Date), .Cells, 0)
        If IsNumeric(C) Then
            .Item(1, C).Select
        Else
            MsgBox "Date is not in column range C3:HK3."
        End If
    End With
End With
End Sub

Here is a screen shot to explain:

Second Sheet:

 

[juddaaaa]

How are you highlighting the cell?

Are you using conditional formatting? There's nothing in your code that could be doing it

 

[willhelm654]

How are you highlighting the cell?

Are you using conditional formatting? There's nothing in your code that could be doing it

No conditional formatting this is why i am so confused....

 

[Fluff]

Do you have any event code in that sheets module, or in the ThisWorkbook module?

 

[willhelm654]

Do you have any event code in that sheets module, or in the ThisWorkbook module?

No Event code that I can see. the only Vba running is the one above. File is here if you can have a look. Capacity plan
Its got me stumped, I dont know if it is a function of Excel 2013?

 

[footoo]

No conditional formatting this is why i am so confused....

Your file contains Conditional Formatting which is adding the red borders.

 

[willhelm654]

No conditional formatting this is why i am so confused....

Your file contains Conditional Formatting which is adding the red borders.

Thank you i will double check.

 

[juddaaaa]

The letters representing the weekdays are also off by 1

 

[willhelm654]

Thanks guys you rock