VBA to Change Formats of Cells Within a Selection

Hi,

I've spent a bit of time searching for this but haven't been able to find what I need (perhaps it's too specific). I create summary tables every day (of varying rows and columns) and they all need to be formatted a particular way. I'm wondering if there's a way to select the table and format everything how it needs to be formatted. The challenge I'm facing is that the top row needs to be filled in a particular color and have a slightly different border than the table contents.

I'm not sure if there's a way to identify and temporarily store the cell references of a selection, format the entire table, then use some sort of operation to format just the header row? I don't know, I'm sure someone has a much more elegant solution. It's not a huge problem but it would be nice if I could do it with a button.

Any help is greatly appreciated!
Kevin

Thanks for the suggestion but I don't think I was very clear about what I was looking for. After tinkering around with it for a while, I think I got it. It may not be the cleanest, but it appears to work.

When I select a range, I have code that formats the entire selection, then the following lines just select the top row, and then I have formatting code below that applies the format just to that row. Again, probably not the cleanest but it looks like it works.

a = ActiveCell.Row
b = ActiveCell.Column
c = Selection.Columns.Count
Range(Cells(a, b), Cells(a, b + c - 1)).Select

Thanks!
Kevin

I knew there was a better way, thanks so much!