title: How to fix Expression.Error: a cyclic reference was encountered during evaluation
body: <p>In Excel VBA I've made an input box to create a new sheet, name it and create a table on said sheet. When I try to add the table to the data model it returns this error after creating the query.</p>
  
  <pre><code>ActiveWorkbook.Queries.Add Name:=strName, Formula:= _
          "let" &amp; Chr(13) &amp; "" &amp; Chr(10) &amp; "    Source = Excel.CurrentWorkbook(){[Name=" &amp; strName &amp; "]}[Content]," &amp; Chr(13) &amp; "" &amp; Chr(10) &amp; "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Date"", type any}, {""Time"", type any}, {""Call"", type any}, {""Greet"", type any}, {""Listen"", type any}, {""Engage"", type any}, {""Act"", type any}, {""Deliver"", type any}, {""Invite Back"", type any}, {""Total Score"", Int64.T" &amp; _
          "ype}, {""Notes"", type any}})" &amp; Chr(13) &amp; "" &amp; Chr(10) &amp; "in" &amp; Chr(13) &amp; "" &amp; Chr(10) &amp; "    #""Changed Type"""
      CurrentWorkbook.Connections.Add2 strName, _
      "Connection to the " &amp; strName &amp; "query in the workbook.", _
      "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=" &amp; strName &amp; ";Extended Properties="_
    , "" &amp; strName &amp; "", 6, True, False
  
  Where strName = InputBox("Enter Name")
  </code></pre>
  
  <p>Can anyone help me find/fix the cyclic reference?</p>