次のマクロをご覧ください。 Private Target As String Sub Sample1() Dim i As Long For i = 1 To 100 If Cells(i, 1) = 99 Then Target = Cells(i, 1).Address End If Next I End Sub Sub Sample2() If Target <> "" Then MsgBox "見つかったセルは" & Target & "です" Range(Target).Select End If End Sub プロシージャSample1は、セル範囲A1:A100を調べて「99」が入力されているセルを見つけ出し、そのアドレスをモジュールレベル変数Targetに格納しています。 もうひとつのプロシージャSample2は、モジュールレベル変数Targetに格納されているアドレスをユ