Hi Friend,

Thanks, But am getting error message as "Run-time error '9'

"Subscript out of range"

Debug highlight the below line.

Plz help to resolve the same.

Regards,

Prabhu


" ThisWorkbook.Worksheets("Credit").UsedRange.ClearC ontents"