Преобразование списка IP-адресов

[Thunderbird]

Добрый день, профи =)
Прошу помочь с такой задачей:
Есть диапазон ячеек с IP-адресами, например:
10.100.1.1
192.1.10.1
....
Необходимо преобразовать этот перечень в такой формат:
010.100.001.001
192.001.010.001
....
То есть, необходимо каждый блок чисел между точками дополнить впереди одним или двумя нулями до трех знаков.

[IgorGO]

Function Ip15(Ip As String) As String
  Dim i As Long, a
  If Len(Ip) = 15 Then Ip15 = Ip: Exit Function
  a = Split(Ip, ".")
  For i = 0 To 3: a(i) = Format(Val(a(i)), "000"): Next
  Ip15 = Join(a, ".")
End Function

[Thunderbird]

Сообщение от IgorGO

Function Ip15(Ip As String) As String
  Dim i As Long, a
  If Len(Ip) = 15 Then Ip15 = Ip: Exit Function
  a = Split(Ip, ".")
  For i = 0 To 3: a(i) = Format(Val(a(i)), "000"): Next
  Ip15 = Join(a, ".")
End Function

Спасибо! Тогда еще вопрос: как грамотно реализовать выполнение этого кода на всех листах книги, нажатием кнопки, скажем, на первом листе?