\noindent
\ttfamily
\hlstd{}\hlkwa{Attribute }\hlstd{VB\textunderscore Name }\hlsym{= }\hlstd{}\hlstr{\dq{}JigsAndTemplates\dq{}}\hlstd{}\hspace*{\fill}\\
\hlkwa{Option Explicit}\hspace*{\fill}\\
\hlstd{}\hspace*{\fill}\\
\hlkwa{Public Sub }\hlstd{}\hlkwd{ModuleStart}\hlstd{}\hlsym{()}\hspace*{\fill}\\
\hlstd{}\hlstd{\ \ \ }\hlstd{}\hlslc{' Create the new module.}\hspace*{\fill}\\
\hlstd{}\hlstd{\ \ \ }\hlstd{}\hlkwa{Dim }\hlstd{NewMod }\hlkwa{As Module}\hspace*{\fill}\\
\hlstd{}\hlstd{\ \ \ }\hlstd{}\hlkwa{Set }\hlstd{NewMod }\hlsym{= }\hlstd{Modules.Add\hspace*{\fill}\\
\hspace*{\fill}\\
}\hlstd{\ \ \ }\hlstd{}\hlslc{' Get the module name.}\hspace*{\fill}\\
\hlstd{}\hlstd{\ \ \ }\hlstd{}\hlkwa{Dim }\hlstd{ModName }\hlkwa{As }\hlstd{}\hlkwb{String}\hspace*{\fill}\\
\hlstd{}\hlstd{\ \ \ }\hlstd{ModName }\hlsym{= }\hlstd{}\hlkwd{InputBox}\hlstd{}\hlsym{(}\hlstd{}\hlstr{\dq{}Type the Module Name\dq{}}\hlstd{}\hlsym{, }\hlstd{}\hlstr{\dq{}Name\dq{}}\hlstd{}\hlsym{)}\hspace*{\fill}\\
\hlstd{}\hlstd{\ \ \ }\hlstd{NewMod.Name }\hlsym{= }\hlstd{ModName\hspace*{\fill}\\
\hspace*{\fill}\\
}\hlstd{\ \ \ }\hlstd{}\hlslc{' Get the new projects}\hspace*{\fill}\\
\hlstd{}\hlstd{\ \ \ }\hlstd{}\hlkwa{Dim }\hlstd{MyProj }\hlkwa{As }\hlstd{CodeModule\hspace*{\fill}\\
}\hlstd{\ \ \ }\hlstd{}\hlkwa{Set }\hlstd{MyProj }\hlsym{= }\hlstd{Application.VBE.}\hlkwd{VBProjects}\hlstd{}\hlsym{(}\hlstd{}\hlnum{1}\hlstd{}\hlsym{)}\hlstd{.}\hlkwd{VBComponents}\hlstd{}\hlsym{(}\hlstd{ModName}\hlsym{)}\hlstd{.CodeModule\hspace*{\fill}\\
\hspace*{\fill}\\
}\hlstd{\ \ \ }\hlstd{}\hlslc{' Open the file.}\hspace*{\fill}\\
\hlstd{}\hlstd{\ \ \ }\hlstd{MyProj.CodePane.Show\hspace*{\fill}\\
\hspace*{\fill}\\
}\hlstd{\ \ \ }\hlstd{}\hlslc{' Add the required option statement, module header, and opening Sub.}\hspace*{\fill}\\
\hlstd{}\hlstd{\ \ \ }\hlstd{MyProj.InsertLines }\hlnum{1}\hlstd{}\hlsym{, }\hlstd{}\hlstr{\dq{}Option Explicit\dq{}}\hlstd{ }\hlsym{+ }\hlstd{vbCrLf }\hlsym{+ }\hlstd{vbCrLf }\hlsym{+ }\hlstd{\textunderscore \hspace*{\fill}\\
}\hlstd{\ \ \ \ \ \ }\hlstd{}\hlstr{\dq{}' Module Name: \dq{}}\hlstd{ }\hlsym{+ }\hlstd{ModName }\hlsym{+ }\hlstd{vbCrLf }\hlsym{+ }\hlstd{}\hlstr{\dq{}' Author: \dq{}}\hlstd{ }\hlsym{+ }\hlstd{\textunderscore \hspace*{\fill}\\
}\hlstd{\ \ \ \ \ \ }\hlstd{Application.UserName }\hlsym{+ }\hlstd{vbCrLf }\hlsym{+ }\hlstd{}\hlstr{\dq{}' Date: \dq{}}\hlstd{ }\hlsym{+ }\hlstd{}\hlkwd{CStr}\hlstd{}\hlsym{(}\hlstd{DateTime.Now}\hlsym{) + }\hlstd{\textunderscore \hspace*{\fill}\\
}\hlstd{\ \ \ \ \ \ }\hlstd{vbCrLf }\hlsym{+ }\hlstd{vbCrLf }\hlsym{+ }\hlstd{}\hlstr{\dq{}Public Sub Main()\dq{}}\hlstd{ }\hlsym{+ }\hlstd{vbCrLf }\hlsym{+ }\hlstd{vbCrLf }\hlsym{+ }\hlstd{}\hlstr{\dq{}End Sub\dq{}}\hlstd{}\hspace*{\fill}\\
\hlkwa{End Sub}\hlstd{}\hspace*{\fill}\\
\mbox{}
\normalfont
