A
aking1987
Code
-------------------
Sub EXAMPLe
Dim cellalphanumber As String
If SomeCondition=True Then
EXAMPLE1
cellalphanumber = "E"
Else
EXAMPLE1
cellalphanumber = "D"
End If
END SUB
SUB EXAMPLE1
msgbox cellalphanumber
END SU
-------------------
Sub EXAMPLe
Dim cellalphanumber As String
If SomeCondition=True Then
EXAMPLE1
cellalphanumber = "E"
Else
EXAMPLE1
cellalphanumber = "D"
End If
END SUB
SUB EXAMPLE1
msgbox cellalphanumber
END SU