interior color of selected cells

[onarollcanada]

When I select any number of adjacent cells (could be in a row or a column), anywhere on my spreadsheet, I would like to then press a form control button that will fill the interior color with color the 16738047. I have tinkered with several codes I've found online, but so far they only color the first selected cell and not the others.

Any suggestions?

Thanks

 

[Fluff]

How about

Sub onarollcanada()
   Selection.Interior.Color = 16738047
End Sub

 

[onarollcanada]

How about

Sub onarollcanada()
   Selection.Interior.Color = 16738047
End Sub

Thanks for your quick reply. I had already tried this code but it only colours the first cell in my selection of several cells. It works on a brand new workbook though. Thanks again for your help.

 

[Fluff]

Do you have any conditional formatting on the sheet it doesn't work on?

 

[onarollcanada]

I got it working. There was a conflict with another macro I had on the page. Once I deleted it, your code worked perfectly Thanks for your help.

 

[Fluff]

Glad you sorted it & thanks for the feedback