Verilen alanı istenilen veriyle doldurmaya yarayan VBA kodu alternatifidir.
Option Explicit
Sub VerilenAlaniVeriyleDoldur(metin As String, alan As Range)
Dim hucre As Range
For Each hucre In alan
hucre.Value = metin
Next hucre
End Sub
Sub OrnekKullanim()
VerilenAlaniVeriyleDoldur "Deneme", Range("A1:B10")
End Sub