acabo de probarlo nuevamente....y efectivamente funciono....gracias...
te muestro el codigo que debio ser al principio:
Código vb:
Ver originalSub Llenar_Ceros_2()
Sheets("Programas").Activate
Sheets("Programas").Range("D2:AD2921").SpecialCells(xlCellTypeBlanks) = 0
End Sub