Booby McGee

Opa, Osvaldo ficou perfeito, eu não havia pensado em usar o For Each, estava utilizando um Select Case, mas esse código ficou muito mais limpo. Obrigado pela ajuda, grande abraço.

Opa Osvaldo, obrigado pela rápida resposta. Desculpe se não consegui expressar direito a minha dúvida, mas vou tentar, na sua função eu consigo saber se a célula está inclusa na seleção, mas a minha dúvida vai além de uma única célula. Eu tenho a planilha com 400 linhas, conforme a área selecionada eu preciso saber se a célula "X" está presente na seleção, caso esteja o valor dela será utilizado para nomear a nova planilha, assim se a seleção trouxer a célula "Q10" o nome da nova planilha vai ser o valor da "Q10", se a seleção trouxer a célula "Q49" o nome da nova planilha vai ser o valor da "Q49" e assim por diante. Assim eu precisarei saber se uma das células pretendida esta na seleção e qual é ela. Seria quase isso: 'verifica se a célula pretendida faz parte da seleção Sub teste1() If Not Intersect([Q10],[Q49], [Q88], [Q127], [Q166], [Q205], [Q244], [283], [Q322], [Q361], [Q401], [Q440], Selection) Is Nothing Then MsgBox "A célula "Q88" está incluída na seleção" lCelselect = Range("Q88").Value Else: MsgBox "células pretendidas não incluídas na seleção" End If End Sub A partir dessa identificação de qual a célula esta presente no intervalo selecionado vou criar uma string (lCelselec) para receber essa informação e utilizar na nomeação da nova planilha: ActiveSheet.Name = Novonome & "-" lCelselec É isso. Valeu.

Boas pessoal, a partir de um botão faço a criação de uma nova workbook e a respectiva impressão a partir de uma área selecionada em uma planilha, via vba. A seleção das células é feita com o mouse e capturada pelo "comando Selection.Address", até ai tudo certo, agora preciso saber se determinada célula esta dentro desta seleção. Por exemplo se o comando acima me retorna a seleção "A9:T30" e eu preciso saber se a célula "A10" esta dentro desta seleção, pois tenho uma condicionante para passar o nome da planilha que nesse caso esta na célula "A10". Como passo isso para uma string para poder utilizar na composição do nome da nova planilha? valeu.