Excel2003で動作するものがExcel97で使用できません!
Excel20031で動作している下記VBAがExcel97では動作しません。問題のところのみ記述します。
Private Sub CommandButton2_Click()
Dim fStr As String, foundCell As Range
Dim i As Long, j As Long
Dim x As Range, y As Range
fStr = TextBox1.Text
Set iSheet = iBook.Sheets(1)
Set foundCell = iSheet.Range("K:K").Find(fStr, lookat:=xlWhole)
これで何をしているかというと、「判定フォーム」シートから別のシートを呼び出し、判定フォームに入力した値を検索して、その行に書かれている値を判定フォームに取り込むという動作をしています。Excel2003では動作するのですが、Excel97では
Set foundCell = iSheet.Range("K:K").Find(fStr, lookat:=xlWhole)
のところで「RangeクラスのFindプロパティを取得できません」というエラーが出てしまいます。2003と97で何か違うところがあるのでしょうか。わかる方ぜひ教えてください。よろしくお願いいたします!!!