Pessoal, desde já agradeço a ajuda dos amigos.
Estou precisando fazer uma macro que receba um numero, e este seja pesquisado em todas as planilhas da pasta de trabalho, e quando este numero for encontrado(sempre terá o respectivo numero em 2 sheets) a célula seja preenchida com uma determinada cor. O que não estou conseguindo fazer é que a pesquisa corra por todas as sheets.
Segue abaixo o código VB:
Sub Macro4()
'
' Macro4 Macro
'
'
Dim valor As Integer
variavel1 = (InputBox("Digite o numero: "))
Cells.Find(What:=variavel1, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets("PLANILHA_01").Select "aqui precisava de especificar todas as sheets, porém são mais de 50 e a cada dia são criadas novas"
Cells.FindNext(After:=ActiveCell).Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub