Hello rbyrd023,

Here is the corrected code...
Sub changelogo_Click()

  cngpic = Application.GetOpenFilename(Title:="Select an image to load", FileFilter:="Picture Files *.gif(*.gif),")

  If cngpic = False Then
    MsgBox "You did not load an image"
    Exit Sub 
  End If
   
  companylogo.Picture = LoadPicture(cngpic)

End Sub