Thursday, October 4, 2018

Critical Message Box

Sub DeleteColumn()
Dim colDel As Integer, conf As Integer

conf = MsgBox("Are you sure you want to delete this Category?", 20)

If conf = 6 Then
    colDel = DeleteCategory.CategoriesBox.ListIndex + 1
    Cells(1, colDel).EntireColumn.Delete
End If

DeleteCategory.CategoriesBox.Clear

Call CategoryComboBox

End Sub
at