1. OCULTAR BARRAS DE FERRAMENTAS:
Sub Ocultando_Barras_Ferramentas()
ActiveWindow.DisplayGridlines = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub

2. BUSCAR PALAVRA:
IMPORTANTE:
a) activevecell.address  mostra o endereço da célula ativa
b) Format(Now(), "dd/mm/yyyy hh:mm:ss")  formata celula de acordo com data e hora
c) sbx = cancel  essa instrução no código abaixo equivale a apertar o botão cancelar no INPUTBOX
d) Plan2.Range("b65000").End(xlUp).Offset(1, 0).Value = ActiveCellirá digitar abaixo da ultima celula escrita da coluna B a palavra encontrada mais próxima da palavra procurada(como pode ser visto em negrito: ao procurar, por exemplo,”cab” e existir na planilha a palavra “cabeça”, essa ultima palavra será armazenada na variável activecell,em negrito)

Sub Busca_palavra()
Dim sbx As String sbx = InputBox("Digite palavra procurada", "Procura palavra personalizada")
If sbx = "" Then sbx = cancel
Exit Sub
End If
Cells.Find(What:=sbx, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate
MsgBox "A palavra [ " & sbx & " ] esta na célula [ " & ActiveCell.Address & " ]"
Plan2.Range("b65000").End(xlUp).Offset(1, 0).Value = ActiveCell