シート指定について

教えてください下記のプログラムにシート指定をする場合は、
どう書き換えればいいのでしょうか？

Dim x As Long, y As Long
x = 0
y = Cells(55, Columns.Count).End(xlToLeft).Offset(, 0).Column
With ListBox13
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Cells(55, y).Offset(x) = .List(i)
x = x + 1
End If
Next i
End With

No.1 ベストアンサー 回答者： 初心者ですが何か。 回答日時： 2022/01/11 19:36

Dim x As Long, y As Long , ws as worksheets '★

set ws = worksheets("シート名") ' ★
x = 0
y = ws.Cells(55, Columns.Count).End(xlToLeft).Offset(, 0).Column '★
With ListBox13
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
ws.Cells(55, y).Offset(x) = .List(i) '★
x = x + 1
End If
Next i
End With