Sub Make_FullReplica(DesignMasterName As String, _
NewRepName As String)
Dim repDesignMaster As New JRO.Replica
With repDesignMaster
.ActiveConnection = DesignMasterName
.CreateReplica CurrentProject.Path & "\" & NewRepName, _
"Replica of " & DesignMasterName
End With
End Sub