CONTABILIDAD INTEGRAL SALUDMBG

Private Sub CommandButton9_Click() Dim Secfolder As String, DIREC As String 'Verifica que la carpeta Con nombre del mes Año exista If Dir(Sheets("Firmas").Cells(1, "C"), vbDirectory) = "" Then MsgBox ("LA RUTA" & Sheets("Firmas").Cells(1, "C") & " NO...