I have the following to show a chart in a userform:

SetSourceData Source:=Range("MyRange")
......

Fname = ThisWorkbook.Path & Application.PathSeparator & "Temp.gif"
CurrentChart.Export Filename:=Fname, FilterName:="GIF"
........

Image1.Picture = LoadPicture(Fname)

If "MyRange" is error or Null the how i can say the to remove the
current picture of image1 and just show empty image1

Thanks