Snasui Excel Forum

Code: Select all

'------- {Module1} ------------
Public Test as String
Test = "สวัสดีครับนี่คือ Sub "

Sub MyA()
      	msgbox Test & "A"
End Sub

Sub MyB()
	msgbox Test & "B"
End Sub

Sub MyC()
	msgbox Test & "C"
End Sub
'------- {Module1} ------------

Code: Select all

Public Const TestPath As String = ThisWorkbook.Path & "\"

Sub MyA()
    Range("a1") = TestPath & " MyA"
End Sub

Sub MyB()
    Range("a2") = TestPath & " MyB"
End Sub

Sub MyC()
    Range("a3") = TestPath & " MyC"
End Sub

Code: Select all

Public TestPath As String

Sub MyA()
    Range("a1") = TestPath & " MyA"
End Sub

Sub MyB()
    TestPath = ThisWorkbook.Path & "\"
    Range("a2") = TestPath & " MyB"
End Sub

Sub MyC()
    Range("a3") = TestPath & " MyC"
End Sub