Hey all,

the following piece of code keeps giving me Object variable not set error (below bolded).. and I am not sure why.. if anyone can fix it up / tell me whats wrong I would really appreciate it!

Dim rgCell As Range, phbCell As Range, qFind As String, tFind As String, quarter2 as string, year2 as string _
    olrRange As Range, unionrange As Range
     
    quarter = Sheets("Update").TextBox1.Text
    quarter2 = quarter
    
    year = Sheets("Update").TextBox2.Text
    year2 = year
    If quarter = 1 Then
        year2 = year - 1
        quarter2 = 4
        qtrEndDate = "Dec.1"
    ElseIf quarter = 2 Then
        quarter2 = 1
        qtrEndDate = "Mar.1"
    ElseIf quarter = 3 Then
        quarter2 = 2
        qtrEndDate = "Jun.1"
    Else
        quarter2 = 3
        qtrEndDate = "Sep.1"
    End If
     
    qFind = quarter2
    tFind = "something"
        
    Set unionrange = Union(Range("A6:W6"), Range("A1:A20"))
    With unionrange
       
        Set rgCell = .Find(What:=qFind, LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
                           SearchDirection:=xlNext, MatchCase:=True)

        Set phbCell = .Find(What:=tFind, LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlByRows, _
                           SearchDirection:=xlNext, MatchCase:=True)
                           
        If Not rgCell Is Nothing And Cells(Val(rgCell.Row + 1), rgCell.Column) = year2 Then

        Set olrRange = Cells(phbCell.Row, rgCell.Column)
        
        Else
        MsgBox ("Error")
        End If
        
        Range("A1").Value = olrRange
    End With