Dialogue box too wide

[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

 

[Per Jessen]

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]

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

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

Regards,
Salza.