Thisworkbook.Sheet1 não é um caminho de objeto válido, tente em vez disso:SqlString = ThisWorkbook.Sheets("Sheet1").Shapes("SqlQuery1").OLEFormat.Object.Text
Ou apenas
SqlString = Sheet1.Shapes("SqlQuery1").OLEFormat.Object.Text
E certifique-se de que a planilha seja definitivamente chamada de "Planilha1"
Além disso, você precisa mudar
rs.Open strSQL, conn, adOpenStatic
para isso:
rs.Open SqlString, conn, adOpenStatic
E você provavelmente deveria usar
Dim SqlString as String
no início da rotina
