Hi, Implemented the below solution, while running the code getting dbug screen and highlighting the below line:

Code:
If Not sh Is Nothing Then
                sh.Copy After:=BaseWks.Parent.Sheets(BaseWks.Parent.Sheets.Count)
seems needs to make changes to this line as well.

Thanks
Rajesh