Run-time error 13 type mismatch

hi Friends,
I'm getting error 'run-time error 13 type mismatch' in my code. I want to find the serial number after clicking on ok.

Please see the attachment and solve my problem.

Thanking you in anticipation.

Mukesh

Hi

The problem is in line "LastRow"

LastRow = Cells(Rows.Count, Rng.Column).End(xlUp).Row

Hi BrianM45,
Thank you. My problem is solved.

What is infraction?

Thank you.

Mukesh