message box if there are merged cell and unmerged and run the macro

[KalilMe]

hi

I would pop up message with the warning sound when I try running any macro and there are many merged cells then show me two choices if I press ok then cancel merged cells and run the macro and if I press no . then nothing happens and doesn't work the macro

 

[Rick Rothstein]

Give this structure a try...

Sub YourMacro()
  Dim Answer
  If Cells.MergeCells Or IsNull(Cells.MergeCells) Then
    Answer = MsgBox("You have merged cells, can I remove all of them?", vbYesNo Or vbDefaultButton2)
    If Answer = vbNo Then Exit Sub
  End If
  '
  ' Your macro code goes here
  '
End Sub

 

[KalilMe]

that's excellent . about cancel merged cells yes your code works practically , but visually the merged cells keeps merged . it should cancel cells merging . may you fix it, please ?
last thing about the message . may you change properties of message to become rough sound instead of show without any sound to warn.

 

[Rick Rothstein]

Sorry, I thought you already had that as part of your existing code. One line of code is all it takes...

Sub YourMacro()
  Dim Answer
  If Cells.MergeCells Or IsNull(Cells.MergeCells) Then
    Answer = MsgBox("You have merged cells, can I remove all of them?", vbYesNo Or vbDefaultButton2)
    If Answer = vbNo Then Exit Sub
  End If
  Cells.Unmerge
  '
  ' Your macro code goes here
  '
End Sub

 

[KalilMe]

thanks very much