■
Sub test()
Set sheetobj = ThisWorkbook.Worksheets("sheet1")
Dim kijun
Dim max
Dim tmp
Dim i
With sheetobj
kijun = .Cells(1, 1)
For i = 2 To 29
max = .Cells(i, 1)
If kijun < max Then
kijun = max
End If
Next i
.Cells(1, 2) = max
End With
End Sub