Excel VBA for highlighting Cells

[KurmallyIsmael]

Hi,
Please help with a VBA code to display the highlighting of cells coler pop up and choosing our color to apply to the cells (by pressing a shortcut like ctrl+h) instead of doing same from the ribbon.

So, for e.g, if I am on Cell A6 and I want to highlight this cell with Purple color, I want to do same just by pressing ctrl+h and then choosing the purple color instead of choosing it from the ribbon.

Grateful for your help...EnjoyExcel

 

[KurmallyIsmael]

Apply a shortcut key combo to this macro

Sub Format_Color()
  Application.SendKeys ("^1AFF")
End Sub

Hi
Thank you for your help.

 

[jolivanes]

Why use "SendKeys"?

Sub Get_Colors()
    Application.Dialogs(161).Show
End Sub

Sub Get_Colors_2()
    Application.Dialogs(xlDialogColorPalette).Show
End Sub

 

[Peter_SSs]

Why use "SendKeys"?

For me: Because when I used that I was subsequently able to choose and apply a colour to the cell without the error reported in post 10.

Hi
Thank you for your help.

You are welcome.

 

[jolivanes]

Hi Peter.
Obviously you ended up getting the error also as you mentioned. Do you know why that would be Peter.
I don't get it on mine (excel 2007).
However, after powering up the laptop with excel 2013, it shows the error after the window appears.
Googling did not make me any wiser on the subject.

 

[jolivanes]

More to the above. Might be of use to someone else.
I tried with some other DialogDisplays and no error there. I just tried a few but the only one that errors is the ColorPalette (161)

 

[Peter_SSs]

Do you know why that would be Peter.

Not something I know anything about really, so I just did what worked.
Upon further investigation it looks like this would be it

Sub Format_Color_2()
  Application.Dialogs(xlDialogPatterns).Show 'Enumeration is 84
End Sub

 

[jolivanes]

Thanks Peter.
That did not error on either machine.

 

[KurmallyIsmael]

Why use "SendKeys"?

Sub Get_Colors()
    Application.Dialogs(161).Show
End Sub

Sub Get_Colors_2()
    Application.Dialogs(xlDialogColorPalette).Show
End Sub

Hi
Thanks for help

 

[KurmallyIsmael]

Not something I know anything about really, so I just did what worked.
Upon further investigation it looks like this would be it

Sub Format_Color_2()
  Application.Dialogs(xlDialogPatterns).Show 'Enumeration is 84
End Sub

Hi
Thanks...
I think yes we can stick to this option finally.

 

[KurmallyIsmael]

Thank you everyone for helping someone like me.