Elsa Matilde respondió:
Te paso la parte del código que te marca error para que puedas avanzar: For j = Sheets.Count To 1 Step -1 If Sheets(j).Visible = True Then hoja.Rows("1:200").Value = hoja.Rows("1:200").Value End If Next Call EliminarHojasOcultas Call...