run time error issue in VBA

[TommyNewtoExcel]

Hello,
I am new to excel VBA and have been getting stuck on the "run-time error'1004. The formula is missing a range reference or a defined name" the error is in the following line Range("RIFEquipmentTag").Value = RIFEquipmentTag

I believe I have set it up the same way as the other items pulling data and entering into a new block but have obviously not done something right. The first three of these run correctly but it keeps giving me an error on the above line.

I am taking form a range as defined on another sheet and sending to fill a new form in a block named Equipment Tag and comes forma column named unit ID.

Any help would be greatly appreciated.
Thank you in advance,
TommyC

Public Sub GenerateRIF()
Dim i As Integer
Dim x As Integer
Dim FilePath As String
Dim FullFileName As String
Dim wbkCurrent As Workbook
Dim RIFManufacturer As String
Dim RIFType As String
Dim RIFCapacity As String
Dim RIFVoltage As String
Dim RIFEquipmentTag As String


Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual


i = 1
x = Application.WorksheetFunction.CountA(Range("B:B"))


'Update to your file path"
FilePath = "C:C:\Users\thocoult\Desktop\Newst macro\"


Set wbkCurrent = ActiveWorkbook


Application.Goto Reference:="AHUData"
Range("AHUData").Cells(i, 2).Select


'Hard code building id in all of the forms
buildingFINId = "IAD65"


For i = 1 To x
    
    Application.Goto Reference:="AHUData"
    
    RIFManufacturer = Range("AHUData").Cells(i, 4).Value
    RIFType = Range("AHUData").Cells(i, 7).Value
    RIFCapacity = Range("AHUData").Cells(i, 7).Value
    RIFVoltage = Range("AHUData").Cells(i, 29).Value
    RIFEquipmentTag = Range("AHUData").Cells(i, 2).Value
    
    If Left(Range("AHUData").Cells(i, 2).Value, 3) = "AHU" Then
    
    'Manufacturer
    Application.Goto Reference:="RIFManufacturer"
    Range("RIFManufacturer").Value = RIFManufacturer
    
    'Type
    Application.Goto Reference:="RIFType"
    Range("RIFType").Value = RIFType
    
    'Capacity
    Application.Goto Reference:="RIFCapacity"
    Range("RIFCapacity").Value = RIFCapacity
    
    'Volts/Phase/Hertz
    Application.Goto Reference:="RIFVoltage"
    Range("RIFVoltage").Value = RIFVoltage
    
    'EquipmentTag
    Application.Goto Reference:="RIFEquipmentTag"
    Range("RIFEquipmentTag").Value = RIFEquipmentTag


    FullFileName = FilePath & "RIF_" & Range("AHUData").Cells(i, 2).Value & ".xlsx"
    
'        If i = 1 Then
    Worksheets("RIF").Copy
    ActiveWorkbook.SaveAs FileName:=FullFileName, FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close


    wbkCurrent.Activate
    
    End If
Next i


'turning back on auto calculations
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True


End Sub
[code]

 

[Fluff]

Hi & welcome to MrExcel.
Check that you have a named range called "RIFEquipmentTag", especially check for any typos.

 

[TommyNewtoExcel]

Thank you Fluff. have checked and don't see where i have any misspellings or other issues and I do have a range for it defined. the range is listed for the source of data I am trying to get RIFEquipmentTag = Range("AHUData").Cells(i, 2).Value

 

[Fluff]

If you go to Name Manager and select "RIFEquipmentTag", what does it say in the Refers To box?
Also is it defines as sheet, or workbook scope?

 

[TommyNewtoExcel]

Found the issue the name manager had not been named in the sheet. Thanks for everyone's help.

 

[Fluff]

Glad you sorted it & thanks for the feedback

 

[TommyNewtoExcel]

Thank you for the help. the question promoted me to search and found when clicking on cells referenced other places the name was changing vice being labeled C3. then realized the same was not true for the one I was referencing. Thanks again.

 

[Fluff]

Your welcome.