Standard Module Code

[adamsm]

Hi,

Any help to change the following code into a standard module code would be kindly appreciated.

<code>Private Sub Worksheet_Change(ByVal Target As Range)
  Dim n As Long
  If Not Intersect(Range("E5:E6"), Target) Is Nothing Then
    Application.ScreenUpdating = False
    If Range("E5") <> "" And Range("E6") <> "" Then
      Select Case Range("E5").Value
        Case "Customer"
          n = 3
        Case "Name"
          n = 4
        Case "City"
          n = 5
        Case "Type"
          n = 9
      End Select
      Range("C10").AutoFilter Field:=n, Criteria1:=Range("E6").Text
    Application.ScreenUpdating = True
  End If
   End If
End Sub</code>

 

[Smitty]

It would probably be just as fast to change the AutoFilter criteria manually as opposed to trying to tie it to a stand-alone module, because you'd still need an action to call the code.

 

[adamsm]

Thanks for the help.

 

[adamsm]

By the way, if the value that is typed in "E6" does not exist in the sheet, how could a message be created saying the the value does not exits in the sheet?

Any help would be appreciated.

 

[Smitty]

Do you have any other code?

 

[adamsm]

the posted code is the code im having.

 

[Smitty]

I can't think why you'd get a message like that unless there's something else triggering it.

 

[adamsm]

I hope you know my question. I'm trying to create a message box. Not getting a message.