Thread: Import .bas file into a workbook.

Hello laconicnexus,

Welcome to the forum!

Here is an example macro. You will need to change the FileSpec variable to match you file's directory and anme.

Sub ImportBAS()

  Dim FileSpec As String
  Dim VBbproj As Object
  
    FileSpec = "C:\Documents and Settings\Owner\My Documents\List_Unique_Tweet_Tags.Bas"
    Set VBproj = ThisWorkbook.VBProject
    
    VBproj.VBComponents.Import FileSpec
    
End Sub

Alternative: send each user a file that contains the macro. Let that file save itself as an Addin.

Private Sub Workbook_Open()
  If ThisWorkbook.Name = "installatie.xls" Then
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Application.StartupPath & "\example.xla", xlAddIn
    Application.DisplayAlerts = True
    
    ThisWorkbook.IsAddin = True
    ThisWorkbook.Save
    Workbooks.Add
      AddIns.Add ThisWorkbook.FullName
      AddIns("mvdp").Installed = True
     ThisWorkbook.Close False
  End If
End Sub