Sub delMbar()
Dim mxlb As String
mxlb = Environ("appdata") & "\microsoft\excel\*.xlb"
If Dir(mxlb) <> "" Then
Kill mxlb
End If
End Sub
Sub delMbar()
Dim mxlb As String
mxlb = Environ("appdata") & "\microsoft\excel\*.xlb"
If Dir(mxlb) <> "" Then
Kill mxlb
End If
End Sub