Sub FindMaxValue()
    Dim MaxVal As Double
    MaxVal = Application.WorksheetFunction.Max(Range("A1:A10"))
    MsgBox "Maksimum Değer: " & MaxVal
End Sub
Kopyala

• Makronun başlangıcı 1.

  Sub FindMaxValue()

  ile makro başlatılır 1.
• Değişken tanımı 1.

  Dim MaxVal As Double

  ile maksimum değer için değişken tanımlanır 1.
• Veri aralığı belirleme 1.

  Set VeriAraligi = ActiveSheet.Range("A1:A100")

  ile arama yapılacak hücre aralığı belirlenir 1.
• Maksimum değeri bulma 1.

  MaxVal = Application.WorksheetFunction.Max(VeriAraligi)

  komutu ile maksimum değer bulunur 1.
• Sonuç gösterimi 1.

  MsgBox "Maksimum değer: " & MaxVal

  komutu ile sonuç ekranda gösterilir 1.
• Makro sonu 1.

  End Sub

  ile makro sonlanır 1.