dofall

Olha, para mudar de planilha é bem fácil, é só mudar onde está escrito:

a = Worksheets("Plan1").Range("A" & colorir).Interior.Color

Worksheets("Plan1").Rows(colorir).Interior.Color = a

pelo nome da planilha que quer que ocorra a mudança, ex: Plan2, Plan3, etc.

Já a coluna é só mudar onde está escrito:

a = Worksheets("Plan1").Range("A" & colorir).Interior.Color

por B, C, D a coluna que quiser.

Tem sim, inclusive existe uma função para fazer isso muito simplesmente usando a função AutoFilter, um ex:

Sub a()

Range("A:A").AutoFilter 1, "D"

End Sub

vai filtrar na coluna A apenas os valores "D".

Até que não é difícil fazer isso. Primeiro faça a primeira caixa de listagem, aí em RowSource você colocar uma seqüência de células onde estão as opções.

A seguir você cria a segunda caixa de listagem e dá um duplo clique na primeira caixa de listagem, escrevendo um código tipo esse:

Private Sub ComboBox1_Change()

Select Case ComboBox1.Text

Case "A"

ComboBox2.RowSource = "B1:B6"

Case "B"

ComboBox2.RowSource = "C1:C6"

End Select

End Sub

Nesse caso se você selecionar no primeiro combobox "A" então ele vai retornar a lista dos valores de B1 até B6, se for "B" vai abrir os valores de C1 a C6.