Excel Vba ile yazmak

[çıtırık]

Benim sorum şöyle, ben excel hücrelerine ingiliz alfabesinde varolan tüm harfleri yazdırdım. tüm harfler dolgu ile çizildi ve 4x10 luk bir yere tüm harfler yazıldı. Bu harflerin tutulduğu sayfa da sayfa 3 diyelim. Ben kullanıcımdan Inputbox ile bir kelime alacağım ve bu kelimede yazan harfleri , excel hücrelerine yazdığım harfleri vba ya dönüştürerek mesela B95-E105 aralığındaki harf I harfidir diyerek "Işık" yazan kullanıcıma I harfini tahsis edip makroyu çalıştırdığımda harflerin excel hücrelerinde yazmasını istiyorum. Bunun için tüm aralıkları tek tek
Worksheets("Sayfa3").Range("B2:E11").Name = A
Worksheets("Sayfa3").Range("B13:E22").Name = B
Worksheets("Sayfa3").Range("B24:E33").Name = C
Worksheets("Sayfa3").Range("B35:E45").Name = D
Worksheets("Sayfa3").Range("B47:D57").Name = E
Worksheets("Sayfa3").Range("B59:E69").Name = F
Worksheets("Sayfa3").Range("B71:E81").Name = G
Worksheets("Sayfa3").Range("B83:E93").Name = H
Worksheets("Sayfa3").Range("B95:E105").Name = I
Worksheets("Sayfa3").Range("B107:E117").Name = K
Worksheets("Sayfa3").Range("B119:E129").Name = L
Worksheets("Sayfa3").Range("B131:E141").Name = M
Worksheets("Sayfa3").Range("B143:E153").Name = N
Worksheets("Sayfa3").Range("B155:E165").Name = O
Worksheets("Sayfa3").Range("B167:E177").Name = P
Worksheets("Sayfa3").Range("B179:E189").Name = R
Worksheets("Sayfa3").Range("B191:E201").Name = S
Worksheets("Sayfa3").Range("B203:E213").Name = T
Worksheets("Sayfa3").Range("B216:E226").Name = U
Worksheets("Sayfa3").Range("B228:E238").Name = V
Worksheets("Sayfa3").Range("B240:E250").Name = Y
Worksheets("Sayfa3").Range("B252:E262").Name = Z

olarak tanımladım ama bir noktayı atlıyorum. Yardım eder misiniz ?
Bunlar dışında mesela sayfa 3 ten alınacak bu verileri hangi kod ile sayfa 4 te kullanacağım ?
ve o harfleri nasıl yazdıracağım ? Örneğin Inputbox a GALATASARAY yazınca Hücrelerde GALATASARAY yazmalı ve VBA kullanılmalı