Need help cleaning up my code...

Originally Posted by HaHoBe

Hi, pasqualebaldi,

maybe like this:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("A21:A2921")) Is Nothing Then
  If Target.Row Mod 2 = 0 And Target.Row Mod 20 = 2 Then
    If Target.Value <> "" Then
      Select Case Target.Value
          Case "Blank Sheet": Msgbox_Blank_Sheet
          Case "Place Concrete": Msgbox_Concrete
          Case "Asphalt": Msgbox_Asphalt
          Case "Silicone Joints": Msgbox_Silicone_Joints
          Case "Compression Seal": Msgbox_Compression_Seal
          Case "CTB": Msgbox_CTB
          Case "CTS": Msgbox_CTS
          Case "Aggregate Base": Msgbox_Aggregate_Base
          Case Else
      End Select
    End If
  End If
End If
End Sub

BTW: the code works only on Column A, where is the relation to Column C as you give up that range?

Ciao,
Holger

I'm sorry, when one of the cases are picked it pastes data in column C. I meant to say column A.

Thank you very much! This worked perfectly and it is much less code than what I had!