VBA Code to Name Range

[OilEconomist]

Hello and thanks in advance for your help and I will provide feedback.

Cells A4 through A28 have the name I would like to use as NameRanges for cells in Cells C4 through C28.

"I am getting a run-time error '1004': The name that you entered is not valid." on the following line:

Worksheets("1").Names.Add Name:=RangeNameString1, RefersTo:=NameRange1

Entire Code:

Sub RangeNameOneCell()


    Dim i As Integer
    Dim RangeNameString1 As String
    Dim NameRange1 As Range


    
    Worksheets("1").Activate


    For i = 4 To 28


            If ActiveSheet.Cells(i, 1).Value <> "" Then
    
            RangeNameString1 = ActiveSheet.Cells(i, 1).Value
            
            Set NameRange1 = ActiveSheet.Range("C" & i)
                
            Worksheets("1").Names.Add Name:=RangeNameString1, RefersTo:=NameRange1
                
         End If
         
         Next i




End Sub

Also same error on the following code:

Sub RangeName2()
    Dim i As Integer
     
    Dim RangeNameString1 As String
    Dim RangeNameString2 As String


    Dim NameRange1 As Range
    
    Worksheets("1").Activate


    For i = 35 To 41


            If ActiveSheet.Cells(i, 4).Value <> "" Then
    
            RangeNameString1 = ActiveSheet.Cells(i, 4).Value


            Set NameRange1 = ActiveSheet.Range(Cells(i, 7), Cells(i, 1207))
                
            Worksheets("1").Names.Add Name:=RangeNameString1, RefersTo:=NameRange1
            
                
         End If
         
         Next i


End Sub

 

[DanteAmor]

When the error occurs press debug, in the code put the mouse pointer to the variable RangeNameString1 and check the contents of the variable.