Pattern Not Applying to Cells

[szymagic]

Hey All,

So a friend of mine has a workbook that is acting up.

When he selects a range to fill the cells he has to click twice. The first time he clicks nothing happens, and the second time he clicks the pattern is applied.

I thought this was curious so I recorded a macro when he did this and this is what we got:

    Range("A82:G82").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = [COLOR=blue]5296274[/COLOR]
        .TintAndShade = 0
        .PatternTintAndShade = 0

For some reason the first time he clicks the fill button, excel recognizes it as .Pattern = xlNone

I think that is super weird. He is working in Office 365 32 bit. Any ideas on what is happening?

I checked conditional formatting and protections and there was nothing there for either. This is also an xlsx.


Thanks so much!

 

[Michael M]

The first time he clicks nothing happens

Clicks what ??
Is this part of a larger code ??

With Range("A82:G82").Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 5296274
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With

 

[szymagic]

Like when you click the fill cell "bucket" he has to click twice. The code was just to see what was actually happening per click.

The code doesn't do anything, and this really isn't a VBA related question, I'm just using VBA to tell a piece of the story!

Thanks