I've received quite a bit of help from Ron Rosenfeld and Dave Peterson on this project, but I've run into another snag. I get confused when it comes to private subs and passing variables back and forth. I'm not sure whats up, but this code just stopped working all of a sudden.. I say all of a sudden, but I'm sure that I've done something to it. Here is all my code in the worksheet:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'** This portion used for the sales manager initials.
' Used to make sure that three letters are used.

Dim AOI As Range
Dim str As String

Set AOI = [C4]
Application.EnableEvents = False
If Not Intersect(Target, AOI) Is Nothing Then
str = UCase(Target.Text)
If str Like "[A-Z][A-Z][A-Z]" Then
Target.Value = str
GoTo NormalExit
Else
GoTo ErrorExit
End If
Else
GoTo NormalExit
End If

ErrorExit:
MsgBox "Only three letter entries allowed.", vbExclamation
Application.Undo
Target.ClearContents
NormalExit: Application.EnableEvents = True
End Sub

'*******************************************************************

Private Sub Worksheet_Change2(ByVal Target As Range)
'** This section is used to make sure that cells are not cleared
' with the space bar. This is to enforce accurate totals.

Dim myCell As Range
On Error Resume Next
Application.EnableEvents = False
For Each myCell In Target.Cells
If myCell.HasFormula Then
'do nothing
Else
If Trim(myCell.Value) = "" Then
myCell.Value = ""
End If
End If
Next myCell
Application.EnableEvents = True
On Error GoTo 0
End Sub

'*******************************************************************

Private Sub Worksheet_Change3(ByVal Target As Range)
'** Make sure they enter PC or NC in column B for Code.

Dim CaseRng As Range
On Error Resume Next
Application.EnableEvents = False
For Each CaseRng In Target.Cells
If CaseRng.Column = 2 Then
If CaseRng.Value = LCase(Target.Value) Then
Target.Value = UCase(Target.Value)
Else
'do nothing
End If
End If
Next CaseRng
Application.EnableEvents = True
On Error GoTo 0
End Sub

'*******************************************************************
'Private Sub Worksheet_Change4()
'** This section is used to make sure the date entered is a Saturday
' If it is not a Saturday, it will adjust the date to that weeks Saturday.

'Dim r As Range
'Dim idate As Date
'Dim iday As String
'Application.EnableEvents = False
'Set r = Range("K4")
'
'If r.Value = "" Then
' End
'End If
'
'idate = r.Value
'iday = Format(idate, "dddd")
'
'Select Case iday
' Case Is = "Sunday"
' idate = idate + 6
' Case Is = "Monday"
' idate = idate + 5
' Case Is = "Tuesday"
' idate = idate + 4
' Case Is = "Wednesday"
' idate = idate + 3
' Case Is = "Thursday"
' idate = idate + 2
' Case Is = "Friday"
' idate = idate + 1
' Case Is = "Saturday"
'End Select
'r.Value = idate
'Application.EnableEvents = True
'
'End Sub



Some of it is commented out because I was trying different things with it. I know that each section of this code works, because I had it working at one point in time... If anyone can get this to work, it would be greatly appreciated!!

Thanks

DejaVu