Dialogue box too wide

  • Thread starter Thread starter Salza
  • Start date Start date
S

Salza

I use the macro below to open a dialogue box for this instruction.

"The file will be saved with the new data
Click OK to continue. To stop, click CANCEL".

But the box is too wide. Can someone provide me a macro to correct
this.
Thank you.

Regards,
Salza

-------------------------------------------------


Option Explicit
Sub HU_simpan()

If MsgBox("The file will be saved with the new data. " _
&
"
Click OK to continue. To stop, click CANCEL. ", _
vbOKCancel) = vbCancel Then End


Application.Dialogs(xlDialogSaveAs).Show
End Sub
 
Hi Salza

Maybe this is what you want:

Sub HU_simpan()

If MsgBox("The file will be saved with the new data." & vbLf & vbLf _
& "Click OK to continue. To stop, click CANCEL. ", _
vbOKCancel) = vbCancel Then End

Application.Dialogs(xlDialogSaveAs).Show
End Sub

Regards,
Per
 
Hi Salza

Maybe this is what you want:

Sub HU_simpan()

If MsgBox("The file will be saved with the new data." & vbLf & vbLf _
    & "Click OK to continue. To stop, click CANCEL. ", _
    vbOKCancel) = vbCancel Then End

Application.Dialogs(xlDialogSaveAs).Show
End Sub

Regards,
Per

"Salza" <[email protected]> skrev i meddelelsen
Click to expand...

Thank you, Per. It works the way I want it. I appreciate your kind
help.

Regards,
Salza.
 
Back
Top