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