MsgBox question

[ipbr21054]

Morning all,

I am using the code supplied below which works fine.
When the code operates i am taken to the worksheet where i currently see the message "LEADERBOARD" of which i need to click OK
What needs to be done so i dont have to click OK,i dont even need to see this message BUT i do need to see the message if the file is not found etc.

Please advise thanks.

Sub Openworkbook_Click()

    Dim xWb As Workbook
    Dim wbName As String
    On Error Resume Next
    Set xWb = Workbooks.Open("C:\Users\Ian\Desktop\REMOTES ETC\DR\HONDA SOLD ITEMS.xlsm")
    wbName = xWb.Name
    If Err.Number <> 0 Then
        MsgBox "This workbook does not exist!", vbInformation, "HONDA SOLD ITEMS"
        Err.Clear
    Else
        MsgBox "LEADERBOARD!", vbInformation, "HONDA SOLD ITEMS"
    End If
End Sub

 

[ipbr21054]

It is yes but i could not delete that post.
I thought it would be best put it here with the code mentioned first of all.

 

[RoryA]

You shouldn't duplicate questions. I see no reason that it can't stand by itself as it was.

 

[ipbr21054]

Yes i understand sorry,but i did try to delete it.