Macro to export entire sheet

[richard_chilvers]

I have a macro as a button action which exports a sheet to an image file:

sub SendImage

ActiveDocument.ActiveSheet.ExportBitmapToFile  "C:\\MyFile.jpg"

ActiveDocument.Sheets("SH01").ExportBitmapToFile "C:\\MyFile2.jpg"

end sub

The 1st image (created from the active sheet) is fine but the 2nd image (created from a different non-active sheet) is blank. I don't want to put the button on the sheet I wish to print, otherwise it will be included on the image !

Can anyone explain what is wrong with the second line of my macro?

Thanks