Public Sub FillTemplate(ByVal ws As Worksheet, ByVal currentRow As Range)
    Dim nmSheet As name, nmData As name
    Dim n As Integer, inSheetName As String
    Dim nmSheet_RefersToRange As Range
    For Each nmSheet In ws.Names
        Set nmSheet_RefersToRange = Nothing
        On Error Resume Next
        Set nmSheet_RefersToRange = nmSheet.RefersToRange
        On Error GoTo 0
        If Not nmSheet_RefersToRange Is Nothing Then
            inSheetName = GetInSheetName(nmSheet.name)
            If LCase(Left(inSheetName, 4)) = "col_" Then
                n = CInt(Mid(inSheetName, 5))
                nmSheet.RefersToRange.Value = currentRow.EntireRow.Cells(1, n).Value
            ElseIf LCase(Left(inSheetName, 4)) = "frm_" Then
            ElseIf LCase(Left(inSheetName, 2)) = "x_" Then
            ElseIf LCase(Left(inSheetName, 1)) = "_" Then
            Else
                Set nmData = GetWsName(wsData, inSheetName)
                If Not nmData Is Nothing Then
                    nmSheet_RefersToRange.Value = nmData.RefersToRange.Value
                End If
            End If
        End If
    Next
    For Each nmSheet In ws.Names
        Set nmSheet_RefersToRange = Nothing
        On Error Resume Next
        Set nmSheet_RefersToRange = nmSheet.RefersToRange
        On Error GoTo 0
        If Not nmSheet_RefersToRange Is Nothing Then
            
            inSheetName = GetInSheetName(nmSheet.name)
            If LCase(Left(inSheetName, 4)) = "frm_" Then
                nmSheet.RefersToRange.Value = nmSheet.RefersToRange.Value
            End If
        End If
    Next
End Sub