Sub gif2()
  Sheets(1).Range("A1:C5").CopyPicture _
                 Appearance:=xlScreen, _
                 Format:=xlPicture
  Sheets(2).Paste
End Sub