オブジェクトが見つかりません

下記を実行すると「オブジェクトが見つかりません」と Buf = Sht1.Cells(5, 2).Value で止まります。変数Bufを使わず、
Set FC1 = Sh1.Columns("B").Find(what:="３")
Set FC2 = Sh2.Rows(9).Find(what:="3")
だとエラーは起きないのですが何がいけないのか教えてください。
Sub test1()
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim FC1 As Range, FC2 As Range
Dim Buf As String
Set Sh1 = Sheets(1)
Set Sh2 = Sheets(2)
Buf = Sht1.Cells(5, 2).Value
Set FC1 = Sh1.Columns("B").Find(what:=Buf, lookat:=xlWhole)
Set FC2 = Sh2.Rows(9).Find(what:=Buf, lookat:=xlWhole)
If FC1 Is Nothing Then
MsgBox "見つかりません"
Exit Sub
Else
If FC2 Is Nothing Then
MsgBox "見つかりません"
Exit Sub
Else
FC1.Offset(, 1).Resize(6, 25).Copy
FC2.Offset(2).PasteSpecial Transpose:=True '行列を入れ替えて貼り付ける
End If
End If
End Sub

No.1 ベストアンサー 回答者： zongai 回答日時： 2023/06/24 19:49

Buf = Sht1.Cells(5, 2).Value

　　↓
Buf = Sh1.Cells(5, 2).Value

とか。

この回答へのお礼

ありがとうございます。自分では一生気が付きませんでした！

お礼日時：2023/06/24 22:32