VBA Snippets
Finalize
vba
New
vba
Message_CustomAlreadyExists
vba
Message_CustomDoesNotExist
Public Sub Message_PropertyCustomDoesNotExist( _
ByVal sPropertyName As String)
Dim sMessage As String
sMessage = "The custom workbook property '" & sPropertyName & "' does not exist."
Call MsgBox(sMessage, vbOKOnly + vbInformation, "Property")
Call Tracer_Add("MESSAGE", sMessage)
End Sub
Message_NoWorkbooksOpen
Public Sub Message_NoWorkbooksOpen( _
Optional ByVal bInformUser As Boolean = False)
Dim sMessage As String
sMessage = "There are no workbooks currently open."
If (bInformUser = True) Then
Call MsgBox(sMessage, vbOKOnly + vbInformation, "No Workbook")
End If
Call Tracer_Add("MESSAGE", sMessage)
End Sub
Message_SelNoRangeSelected
vba
Message_WorkbookIsSharedRemoveSharingFirst
Public Sub Message_WorkbookIsSharedRemoveSharingFirst()
Dim sMessage As String
sMessage = "You are unable to create or format charts in a shared workbook."
Call MsgBox(sMessage, vbOKOnly + vbInformation, "Shared Workbook")
Call Tracer_Add("MESSAGE", sMessage)
End Sub
Message_WorkbookNotSaved
Public Sub Message_WorkbookNotSaved()
Dim sMessage As String
sMessage = "You must save your Excel workbook first."
Call MsgBox(sMessage, vbOKOnly + vbInformation, "Workbook Not Saved")
Call Tracer_Add("MESSAGE", sMessage)
End Sub
Property_BuiltInCount
vba
Property_BuiltInExists
vba
Property_BuiltInGet
vba
Property_BuiltInSet
vba
Property_CustomAdd
vba
Property_CustomCount
vba
Property_CustomDelete
vba
Property_CustomExists
vba
Property_CustomGet
vba
Property_CustomSet
vba
Selection_IsChartSelected
vba
Selection_IsRangeSelected
vba
Selection_ReturnName
vba
Selection_ReturnTypeName
vba
Selection_TryPaste
vba
ShapeRange
vba
Wbk_Active
vba
Wbk_Close
vba
Wbk_ColourPaletteDefine
vba
Wbk_FullNameGet
vba
Wbk_Open
vba
Wbk_SaveAs
vba
Wbk_SelectWbk
vba
Wbk_WshsAllToArray
vba
Wbk_WshsAllToString
vba
Wbk_WshsSelectedToArray
vba
Wbk_WshsSelectedToString
vba
© 2023 Better Solutions Limited. All Rights Reserved. © 2023 Better Solutions Limited Top