Boa noite,
Adaptei a partir de um exemplo do help do VBA.
Esta parte do código seleciona das colunas que contenham a palavra "CEI".
Sub FindAndSelect()
With Worksheets(1).Range("A1:D500")
Set c = .Find("CEI", LookIn:=xlValues)
If Not c Is Nothing Then
Set rgUnion = Range(c.Address)
FirstAdress = c.Address
Do
Set c = .FindNext(c)
Set rgUnion = Union(rgUnion, Range(c.Address))
ListAdress = ListAdress & "," & c.Address
Loop While Not c Is Nothing And c.Address <> FirstAdress
End If
End With
rgUnion.EntireColumn.Select
End Sub
[ ]s
Adilson Soledade - MOS http://adilsonsoledade.blogspot.com/