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
-------------------

can you see where my problem is

--
aking198
-----------------------------------------------------------------------
aking1987's Profile: http://www.excelforum.com/member.php...fo&userid=1539
View this thread: http://www.excelforum.com/showthread.php?threadid=27731