[snglvl]

Hi, I need to highlight the message in Message box as it indicates the possibility of loss of data . I need to highlight "You are about to delete the sheet" in bold and all the sentences center aligned. How to do??? Suggestions please...

Sub SHEETDEL()
Dim response As VbMsgBoxResult
	If Cells(ActiveCell.Row, 1).Value = "" Then
		MsgBox "ERROR: EMPTYCELL", vbOKOnly
	ElseIf ActiveCell.Row = 1 Then
		MsgBox "ERROR: HEADER ROW", vbOKOnly
	Else
response = MsgBox("You are about to delete the sheet " _
& Cells(ActiveCell.Row, 1).Value & vbCr & "Are you sure?", vbYesNo, "Delete Sheet???")
If response = vbYes Then
	Application.DisplayAlerts = False
	Sheets(Cells(ActiveCell.Row, 1).Value).Delete
	Application.DisplayAlerts = True
	Rows(ActiveCell.Row).EntireRow.Delete
Else
	MsgBox "Thank You!!!"
End If

End If
End Sub

[AdamSpeight2008]

You can't.

[felixtgomezjr]

The way to do it is to make your own message box. Make a form modular.

I hope that will help.