Emmanuel Gongora

Fijate que tengo este problema logra hacer esta macro con la ayuda de varios expertos para poder copiar la hoja completa pero me he dado cuenta que se vuelve muy pesado ya que copia también los botones etc... Quisiera ver si me puedes ayudar en...

Sub diario() Dim WS_Count As Integer Dim I As Integer WS_Count = ActiveWorkbook.Worksheets.Count For I = 1 To WS_Count fecha_buscar = InputBox("que fecha?, te recuerdo que es DD-MM-AA") If fecha_buscar = ActiveWorkbook.Worksheets(I).Range("G8") Then...