I need some help in making this line of code search just the left 3
characters of column 'M' starting with cell 2-5000.'T' represents
CbxDept.text and column 'M' holds an alphanumeric number that is automaticlly
created so the first 2 to 3 characters are letters. This line is suppose to
find all the rows that match 'T' and setup to copy all the matching data to
another sheets to use as a report.

Sheets("ProCode").Columns(13).Find(What:=T, After:=Cells(5000, 13),
LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True).Activate