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