VBA操作について 姓だけを抜き出し、H列に代入するコードを作成しているのですが ★の箇所でエラーが出てしまいます。…

Question

VBA操作について
姓だけを抜き出し、H列に代入するコードを作成しているのですが
★の箇所でエラーが出てしまいます。
どう修正したらよろしいでしょうか。

Sub Test()With Workbooks("Sample3.xlsx").Worksheets("Sheet5")
.Select
Dim c As Range
For Each c In Range("C:C")
'空白を検索し空白までを抜き出すコードを作成しています。
★ c.Offset(0, 5) = Left(c, InStr(c, " ") - 1)
Next
End With

End Sub
End Sub

補足

すみません！上記については解決しました。
ｃ列すべてを変数に入れていたために、空白のセルに対してエラーが出ていたようです・・。
再度違う件で質問です。
Instr関数で、全角・半角を区別しないと指定したいときは
このコードにどう書き加えたらよろしいでしょうか？
vbtextcompareを入れるのはわかるのですが・・・

★ c.Offset(0, 5) = Left(c, InStr(c, " ") - 1)

Answer 1

>どう書き加えたらよろしいでしょうか？
InStr(c, " ")
↓
InStr(1,c, " ",vbTextCompare)