Bir makroyu çalışma kitaplarında ortak kullanma

[Biolightant]

Benzer şekilde yaklaşık otuz adet değişken var.

böyle bir şey işine yararmı?

Option Explicit
Public shtzoom01 As Integer
Public shtzoom02 As Integer
Public shtzoom03 As Integer
Public shtzoom35 As Integer

Public Sub shtzoomYAP(Deger As Integer, DegiskenAdi As String)
    Select Case DegiskenAdi
        Case "shtzoom01": shtzoom01 = Deger
        Case "shtzoom02": shtzoom02 = Deger
        Case "shtzoom03": shtzoom03 = Deger
        Case "shtzoom35": shtzoom35 = Deger
        Case Else: MsgBox "Tanımsız değişken adı!", vbExclamation
    End Select
End Sub

değiştirmek içinde herhangi bir excel de

Sub zoomAyarla()
    Application.Run "shtzoomYAP", 60, "shtzoom03"
End Sub