the partnumber in checkpartnumber is local to the checkpartnumber routine
because it is in the argument list.

Therefore, the Public variable PN is never set.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Column = 1 And Target.Row 1 Then _
Call CheckPartNumber(Target.Value)
End Sub

Option Explicit

Sub CheckPartNumber(PN)
MsgBox "PN is: " & PN
ChkLen PN
End Sub

Sub ChkLen(PN)
MsgBox "ChkLen PN is: " & PN
MsgBox "Len of PN is: " & Len(PN)
End Sub


Should work.

--
Regards,
Tom Ogilvy

"Otto Moehrbach" wrote in message
...
Excel 2002, Win XP
I am making a very basic mistake in the following macros and I can't
see
it.
The first macro simply calls the 2nd macro and passes Target.Value to
it.
The 2nd macro calls the third macro and that's when things go wrong.
Because I am using "PN" in more than one macro, I declared "PN" at the
top of the module. I think here is the mistake but I can't see it.
Target.Value is a 15 character string.
The MsgBox in CheckPartNumber shows that PN is the 15 Chr string.
The 2 MsgBox's in ChkLen show that PN is nothing with a length of 0.
Question: What happened to the value of PN? Thanks for your help.
Otto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Column = 1 And Target.Row 1 Then _
Call CheckPartNumber(Target.Value)
End Sub

Option Explicit
Dim PN As String
Sub CheckPartNumber(PN)
MsgBox "PN is: " & PN
ChkLen
End Sub

Sub ChkLen()
MsgBox "ChkLen PN is: " & PN
MsgBox "Len of PN is: " & Len(PN)
End Sub

Thanks Tom. My work-around was just what you said to do but you explained
it for me. Thanks again. Otto
"Tom Ogilvy" wrote in message
...
the partnumber in checkpartnumber is local to the checkpartnumber routine
because it is in the argument list.

Therefore, the Public variable PN is never set.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Column = 1 And Target.Row 1 Then _
Call CheckPartNumber(Target.Value)
End Sub

Option Explicit

Sub CheckPartNumber(PN)
MsgBox "PN is: " & PN
ChkLen PN
End Sub

Sub ChkLen(PN)
MsgBox "ChkLen PN is: " & PN
MsgBox "Len of PN is: " & Len(PN)
End Sub


Should work.

--
Regards,
Tom Ogilvy

"Otto Moehrbach" wrote in message
...
Excel 2002, Win XP
I am making a very basic mistake in the following macros and I can't
see
it.
The first macro simply calls the 2nd macro and passes Target.Value
to
it.
The 2nd macro calls the third macro and that's when things go wrong.
Because I am using "PN" in more than one macro, I declared "PN" at
the
top of the module. I think here is the mistake but I can't see it.
Target.Value is a 15 character string.
The MsgBox in CheckPartNumber shows that PN is the 15 Chr string.
The 2 MsgBox's in ChkLen show that PN is nothing with a length of 0.
Question: What happened to the value of PN? Thanks for your help.
Otto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Column = 1 And Target.Row 1 Then _
Call CheckPartNumber(Target.Value)
End Sub

Option Explicit
Dim PN As String
Sub CheckPartNumber(PN)
MsgBox "PN is: " & PN
ChkLen
End Sub

Sub ChkLen()
MsgBox "ChkLen PN is: " & PN
MsgBox "Len of PN is: " & Len(PN)
End Sub