Looking for color in column and msgbox

Hi all,

I need macro to check the range L3:L2500 for colorindex = 3 and if its found show the massege box or if not then go next.

Stop with

Set Rng = Sheets("Sheet3").Range("L3:L2500")

"out of range"

I think I now the problem. If I fill the color manual then works ok, but when the color is from Conditional Formating then it's not.

I did it zbor. That's the full code I want to use it:

Sub AutoShape12_Click()
Dim FilVal As String
Dim DataRow As Range
Dim DataCell As Range
Dim Rng As Range

Set Rng = Sheets("Arkusz1").Range("L3:L2500")

For Each r In Rng
If r.Interior.ColorIndex = 3 Then
    MsgBox r.Address & " colorindex = 3"
End If
Next r

With ActiveSheet.Range("A2").CurrentRegion.Offset(1, 0)
    FilVal = InputBox(Prompt:="Enter the Pallet Number you want to print", _
    Title:="Input")
    If FilVal = vbNullString Then
        Exit Sub
    Else
        .AutoFilter 7, FilVal
    End If
    If .SpecialCells(12).count = 26 Then MsgBox "Nothing to Print!": .AutoFilter: Exit Sub
    
CheckDate:
WhatDate = InputBox("Enter the shipping date in format DD/MM/YYYY and AM/PM:")
If WhatDate = vbNullString Then
MsgBox "Enter the shipping date!"
GoTo CheckDate
Else
Sheets("ShipmentDocket").Select
Range("D14").Value = WhatDate
End If
    
    'kopiowanie wierszy
    Intersect(.Columns("H:N"), .SpecialCells(xlVisible)).Copy
    'przenoszenie danych na arkusz wydruku
    With Worksheets("ShipmentDocket")
        'wklejanie danych
        .Range("A16").PasteSpecial xlPasteColumnWidths
        .Range("A16").PasteSpecial xlPasteAll
        '.Columns("E").Delete
        .Range("E16:E5000").Cells.Delete
                
        Set DataRow = .UsedRange.Rows(17)
        Do While DataRow.Cells(1, 1) <> ""
           DataRow.Copy
           DataRow.Insert xlShiftDown
           For Each DataCell In DataRow.Cells
                Select Case DataCell.Column
                Case 2, 3, 4
                    DataCell.Value = "*" & DataCell.Value & "*"
                    DataCell.Font.Name = "FFontCode39H3"
                 Case Else
                    DataCell.Value = ""
                End Select
           Next
           Set DataRow = DataRow.Offset(1, 0)
        Loop
  
        With .PageSetup
           .LeftMargin = Application.CentimetersToPoints(1)
           .RightMargin = Application.CentimetersToPoints(1)
           .LeftHeader = "&""Arial""&26&B SWORDS Delivery - Pallet No. " & FilVal
           '.PrintTitleRows = "$2:$2"
        End With
         .Range("A16:G5000").Columns.AutoFit
         '.Columns("A:F").EntireColumn.AutoFit
         .PrintPreview
                  
         .Range("A15:G5000").Cells.Clear
    End With
     .AutoFilter
 End With
Sheets("Live").Select

End Sub

That's what I do. CF is checking the match between column K&L and if its different then colour in red. And the macro above is printing me report. But I'm not suppose to do that when red colour is in L. That why I wanted to add the msgbox before my code. Is there anything I can do about it?

Sorry protection removed ;-)

Solus Rankin this is what I was looking for. Didn't think that way - excellent.
Thank you all for help.
Problem SOLVED.