お世話になります。  
「Set cellchi = ws.Range(Cells(suu, 2), Cells(suu,
67)).Value」行で以下のエラーが発生してしまいます。

実行時エラー '91':  
「オブジェクト変数またはWithブロック変数が設定されていません。」

エラーを調べてみると、Setステートメントを使用すればエラーは無くなるとの記載があったのでSetステートメントを追記してみましたがエラー発生しました。  
このエラー原因についてご教示いただけますと幸いです。

ちなみに私がこのVBAで行いたいことはフォームのリストから選択した値（変数：rows）を一度型変換（String ->
integer）して、その値をCellsの行数として扱いたいと思っています。

よろしくお願いします。

```

    'コマンドボタン(OK)クリックでリストボックスの選択した値を取得
    Private Sub CommandButton1_Click()
         Dim sele As String
          With ListBox1
            If .ListIndex = -1 Then
              MsgBox "未選択です。"
            Else
              sele = .List(.ListIndex, 0)
              MsgBox sele
             End If
          End With
          
          
      '何行目を選択したのか値を取得
      Dim rows As String, i As Integer
      With UserForm1.ListBox1
        For i = 0 To .ListCount - 1 'リストボックスの行数
          If .Selected(i) Then '選択されていた場合
            If rows = "" Then
              rows = i + 1 '1こめのとき
            Else
              rows = rows & ", " & i + 3 '複数あるとき
            End If
          End If
        Next i
      End With
    
      If rows = "" Then
        MsgBox "選択されていません"
      Else
        MsgBox "選択されている行は" & rows & "です。"
      End If
      
      
      Dim ws As Worksheet
      Dim cellchi As Range
      Dim suu As Integer
      
      suu = rows
      
      Set cellchi = ws.Range(Cells(suu, 2), Cells(suu, 67)).Value
      Debug.Print scellchi
    
      With New MSForms.DataObject
        .SetText cellchi  '変数の値をDataObjectに格納する
        .PutInClipboard   'DataObjectのデータをクリップボードに格納する
      End With
    
    
    End Sub
    
```
CC BY-SA 4.0
2022-11-02T23:50:17.070
91958
2022-11-02T23:50:17.070
55188
question
vba
VBAの実行時エラー '91'の解消法について