You have done a mistake here :
If CUST.Value = "True" Then
    'Call Customers
End If
If SUP.Value = "True" Then
    Application.Run "Suppliers"
End If
If Trans.Value = "True" Then
    Call Transaction_Freq
End If
As True/False are Boolean they will not be bounded with double inverted comma. Correct them as below :
If CUST.Value = True Then
    'Call Customers
End If
If SUP.Value = True Then
    Application.Run "Suppliers"
End If
If Trans.Value = True Then
    Call Transaction_Freq
End If