Msg box error.

[RAJESH1960]

Hello guys,

I am facing 2 error messages in my code.

The first time I press match portal, the error is at this line:

wsDestination.UsedRange.Clear,

Maybe this is due to the destination sheet is not created yet. But the second time I press match portal without doing anything the code runs and gives the correct result. How do I avoid this error.?

The second error is that when the code is running it displays a msgbox in the middle of the code and once again at the end of the code. That is twice while running the code. The msgbox line is written only once in the end of the code. I wonder why...
Need your expert help to make these 2 errors vanish.
Two Error messages to remove.xlsm

 

[RAJESH1960]

Set wsDestination = Nothing                                            ' Assign DestinationSheet to wsDestination
    On Error Resume Next                                                                    ' Bypass error generated in next line if sheet does not exist
           Set wsSource = Sheets(SourceSheet)                                                 ' Assign SourceSheet to wsSource
        Set wsMatched = Sheets(MatchedSheet)                                                ' Assign MatchedSheet to wsMatched
     Set wsMismatches = Sheets(MismatchesSheet)                                             ' Assign MismatchesSheet to wsMismatches
    On Error GoTo 0                                                                         ' Turn Excel error handling back on
'
' Create DestinationSheet if it doesn't exist
    If Not wsDestination Is Nothing Then DestinationSheetExists = True                      ' Check to see if the DestinationSheet exists
    If DestinationSheetExists = False Then                                                  ' If DestinationSheet does not exist then ...
        Sheets.add(after:=wsSource).Name = DestinationSheet                                 '   Create the DestinationSheet after the Source sheet
        Set wsDestination = Sheets(DestinationSheet)                                        '   Assign the DestinationSheet to wsDestination
    End If

 

[rollis13]

You forgot to resume Set wsDestination = Sheets(DestinationSheet), you need it if for some reason the sheet "Edited Portal" already exists.

 

[RAJESH1960]

You forgot to resume Set wsDestination = Sheets(DestinationSheet), you need it if for some reason the sheet "Edited Portal" already exists.

Done.