| 
    
     |  | うっしさん お世話になっております。
 
 早速試してみましたが、
 今度は、エラーが出るようになってしまいました。
 
 
 整数ですと、エラーはでません。
 
 何か他に処理をしなければいけないことがあるのでしょうか?
 
 
 エラーは以下のとおりです。
 
 ----------------------
 
 実行時エラー 91
 オブジェクト変数またはWithブロック変数が設定されていません。
 
 と、出ます。
 
 ----------------------
 デバックを押すと、
 
 .BorderAround Weight:=xlMedium, ColorIndex:=3
 
 のコードに黄色のラインがあります。
 
 ----------------------
 
 
 Sub てすと()
 
 Dim m As Double
 Dim t As Range
 With Range("A1:N10")
 m = Application.WorksheetFunction.Max(.Cells)
 Set t = .Find(What:=m, LookIn:=xlValues)
 End With
 With t
 .BorderAround Weight:=xlMedium, ColorIndex:=3
 .Font.Bold = True
 End With
 
 
 End Sub
 
 
 |  |