A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
Hi Mike and thanks for support,
the code is:
Sub Muestra_Aviso()
On Error GoTo fin
Archivo_Original = ActiveWorkbook.Name
ActiveSheet.Range("A1").Select
Dim Mensaje, Estilo, Título, Ayuda, Ctxt
Dim Respuesta As Integer ' columna As String, num As Integer, MiCadena as string
Ayuda = "DEMO.HLP" ' Define el archivo de ayuda.
Ctxt = 1000 ' Define el tema
' state the message
Mensaje = "This program will change your data. "
Mensaje = Mensaje & "Do you really want to continue ?"
Estilo = vbYesNo ' Define los botones.
Título = "Cálculo de Horas Extras y Jornadas Nocturna y Normal"
Respuesta = MsgBox(Mensaje, Estilo, Título, Ayuda, Ctxt)
If Respuesta = 6 Then
Call Program
Else
Exit Sub
End If
fin:
frm_BarraProgreso.Hide
Exit Sub
End Sub
But the error appears before the messagebox,
The last time it appeared the error, it solved re-starting the computer.
Again, thanks for your interest, time and support.