Master file creator

[JamieDuncan]

I want my read-only workbook to, upon opening, bring up a userform asking for a reference number, ie 11111-22-33

once this number has been entered, the workbook will create a new folder in O:\Internal\ named the same as the reference number, so would be O:\Internal\11111-22-33\

Then finally the workbook will save itself into this new folder under the name 11111-22-33MASTER close the original workbook and leave the new workbook open and not read only.

Also this new workbook needs to keep all its macros, apart from this one.

 

[JamieDuncan]

Ok ive sussed out the code thus,

Private Sub CreateMaster()
filref = InputBox("Enter File Reference Number", "File Reference")
If filref = "" Then
MsgBox "Please enter a File Reference number"
ActiveWorkbook.Close
Exit Sub
Else
Range("K8").Value = filref
End If
Dim ref
ref = ActiveSheet.Range("K8").Value
Dim FilDir, fs
FilDir = "O:\Internal\"
Dim NewFilePath
NewFilePath = FilDir & ref & "\"
Dim NewFilePath2
NewFilePath2 = FilDir & ref
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'check value of activecell
'create destination directory if it doesnt already exist
    If Dir(NewFilePath2, vbDirectory) = "" Then
        MkDir NewFilePath2
    End If
'save activebook as new workbook
SaveFile:
ActiveWorkbook.SaveAs (NewFilePath & ref & "MASTER.xls"), _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Run "Kill"
End Sub

This is doing what I want it to do but I am having trouble removing this from the Master file created.
Currently I am using this code

Sub Kill()

Dim VBCodeMod As CodeModule
Dim StartLine As Long
Dim HowManyLines As Long

Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("Module13").CodeModule
With VBCodeMod
    StartLine = .ProcStartLine("CreateMaster", vbext_pk_Proc)
    HowManyLines = .ProcCountLines("CreateMaster", vbext_pk_Proc)
    .DeleteLines StartLine, HowManyLines
End With

End Sub

which runs after finishing the Master file creation code.
I have the CreateMaster code auto starting with workbook_open like this

Private Sub Workbook_Open()
    Run "Hide_all"
    Run "UnHideCase"
    Run "UnHideInput"
    Welcome.Show
    If ActiveSheet.Range("K8").Value = "" Then
    Run "CreateMaster"
    Else
Run "Kill"
    End If
End Sub

With this line it is telling me that
User-defined type not defined

Dim VBCodeMod As CodeModule

 

[JamieDuncan]

OK ive sorted it now!

All by my lonesome (with quite a bit of help from the archives!)

forgot to save original file with Extensibility 5.3 activated

silly me

 

[bbusch]

Your code is exactly what I have been looking for. Is the entire code in the above post? And should it be inserted into THIS WORKBOOK?

Thanks