Hi,
Sorry for the delay- just got back to the project!
I'm still having problems with the gradient fill not copying over.
Looking in my code, I wonder if the problem is with:
Dim oRangeDestination As Range
oRangeDestination = oWorksheetDestination.Cells.CreateRange(1, 1, lRowCount, lColCount)
oRangeDestination.CopyValue(oRangeSource)
oRangeDestination.CopyStyle(oRangeSource)
Then the range 'oRangeDestination' is used to create an image. Could the problem lie with CopyStyle perhaps?
Thanks,
Steve