Method 'Range' of object'_Global' failed

Hi. I searched forum and internet in general for this topic and people seems to have same problems when trying to .Select something. My situation is different and I whould appreciate any help.
So here is the part of the code (user form button action) and the red row is where Error is popping out.

Private Sub AproxButton_Click()
    Dim dCell_1 As Range, dCell_2 As Range, aCell_1 As Range
    Dim aStep As Integer
    Dim aFact As Double
    Dim sheet_list As String, sheet_count() As String
    
    'Checking if there is our cool special sheet in this workbook
    Dim sheet_exist As Boolean
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Sheets
        If sh.Name = "wqelmhakimaflnkgb" Then
            sheet_exist = True
            Exit For
        End If
    Next sh
    If sheet_exist = False Then
        MsgBox ("It seems you are using this function first time, please selcet ""Calculate"" button")
        Exit Sub
    End If
  
    Set dCell_1 = Range(ActiveWorkbook.Sheets("wqelmhakimaflnkgb").Cells(1, 2).Value)
    Set dCell_2 = Range(ActiveWorkbook.Sheets("wqelmhakimaflnkgb").Cells(2, 2).Value)
    Set aCell_1 = Range(ActiveWorkbook.Sheets("wqelmhakimaflnkgb").Cells(3, 2).Value)
    aStep = aCell_1.Offset(-2, 1)
    aFact = aCell_1.Offset(-3, 1)
    sheet_count() = Split(aCell_1.Offset(-1, 3), ",")
    Set aCell_1 = Nothing
    Set dCell_1 = Nothing
    Set dCell_2 = Nothing
    Unload Me
End Sub

Here are the cotents of ActiveWorkbook.Sheets("wqelmhakimaflnkgb").Cells(3, 2):
'Mr Kardinal'!$D$5
Here I should point out that Cells(2, 2), Cells(1,2) contents are $A$5 and $B$5

The thing I don't understand is: Everything works as it should when I write like this:

Set aCell_1 = Range("'Mr Kardinal'!$D$5")

And when debuging code with error, Watch for "ActiveWorkbook.Sheets("wqelmhakimaflnkgb").Cells(3, 2).Value" gives Type:Variant/String and Value:"'Mr Kardinal'!$D$5"
Please help me! (