cellkan

Boa noite a todos. Estou com um problema e gostaria da ajuda de vocês. Tenho uma planilha de despesas Fixas, Variáveis, Extras e adicionais. Cada uma (ex. DespFixa) com 10 categorias e cada categoria com 5 linhas. Coloquei uma combobox onde a pessoa escolhe a categoria que ela quer inserir a despesa (em uma das 5 linhas). Cada categoria representa uma faixa de células. Veja planilha Anexa que fica mais fácil entender. A macro ira 1º verificar qual a categoria escolhida na combobox que aparece nº de 0 a 11 na célula vinculada(0 pois deixei 1 em branco). 2º A macro passa a verificar (dentro da categoria escolhida), ou seja dentro do bloco de range da categoria. ex: estudos ("G30:G35") se existe uma célula de nome "Oculta" (depois de apagado este nome é dado automaticamente e a célula ocultada, a macro é pra ela ser reexibida com entirerow.hidde = False) O problema é que não sei como fazer para ela escolher o bloco de range de acordo com a categoria. Tipo ela deve identificar a categoria e verificar só nela. vou colocar a macro que usei com a planilha receita que so tinha 1 bloco de range. para terem noção do que fiz. valeu a Obrigado. Sub Incluir_ItemRec() Dim W As Worksheet Set W = Sheets("H_REC") Application.ScreenUpdating = False For Each Mycell In W.Range("D17,D19,D21,D23,D25,D27,D29,D31,D33,D35") If Mycell = "Ocultada" Then Mycell.EntireRow.Hidden = False Mycell.Offset(1, 0).EntireRow.Hidden = False Mycell.Value = "Insira aqui" Exit Sub End If Next Mycell Application.ScreenUpdating = True End Sub Esta usei para recolher após o usuário apagar a receita: Sub Excluir_ItemRec() ' 'Oculta as celulas vazias (Ocultadas) e uma celula em branco a 'baixo da oculta para nao ficar com espaço dobrado. ' Dim W As Worksheet Dim Interval As Range Set W = Sheets("H_REC") Application.ScreenUpdating = False For Each Mycell In W.Range("D17,D19,D21,D23,D25,D27,D29,D31,D33,D35") If Mycell = "" Then Mycell.EntireRow.Hidden = True Mycell.Select ActiveCell.Offset(0, 2).Range("a1:l1").Value = 0PASTA001.xlsx Mycell.Offset(1, 0).EntireRow.Hidden = True End If Next Mycell Application.ScreenUpdating = True End Sub PASTA001.xlsx