Damian Gomez

Tuve el mismo problema y lo solucione poniendo al Datagrid como Variant, esto sucede porque el Datagrid arroja un valor String, por eso el error; entonces quedaría así: Private Sub exportar_Datagrid(DataGrid As Variant, n_Filas As Long) Pruébalo.