Public strA As String

Worksheets("Sheet1").strA = "init"

Private strA As String

Sub MyInit()
    strA = "init"
End Sub

Private Sub Workbook_Open()
    Worksheets("Sheet1").MyInit
End Sub