I can't get this to do what I want for the life of me...

Basically, I want a block of VB code that will sort the
currently selected set of cells in ascending order by
column B then by column C with no header row.

I want to select the group of cells, then click a button
on the tool bar that performs the sort as described. I
know a little VB but obviously not enough to figure this
out...