Picture Too Large? What picture!!

[RandyD123]

I am getting this error when trying to close my file. Not sure how to stop it. My VBA code is below. If I get rid of the macro button and use Ctrl+s instead, there is no problem!!

Sub RandyD()
Dim c As Range
Application.ScreenUpdating = False

'Generate Sheet Output "Result", Overwrite Old Sheet
On Error Resume Next
    Sheets("Result").Delete
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Result"
    Sheets("Raw Data").Cells.Copy Range("A1")
On Error GoTo 0

With Sheets("Sheet2")  'Replace Airline With 2 Letters
    For Each c In .Range("A2", .Cells(.Rows.Count, "A").End(xlUp))
        Range("G:G").Replace What:=c.Value, Replacement:=c.Offset(, 1), LookAt:=xlWhole, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next
End With

n = Range("A" & Rows.Count).End(xlUp).Row
h = 4 'data start at row
For i = n To h Step -1
    j = WorksheetFunction.CountIf(Range("A" & n & ":A" & h), Cells(i, "A")) 'case insensitive
'        Debug.Print Cells(i - j + 1, "A").Resize(j, 11).Address
        Cells(i - j + 1, "A").Resize(j, 11).Sort Key1:=Columns(7), Order1:=xlAscending, Header:=xlNo  'Sort By 2 First Letters
        If i - j + 1 <> h Then
            Rows(i - j + 1).Insert  'Insert Row Between Different Dates
        End If
        i = i - j + 1
Next

'Combine Code & Flight Number
With Range("B4", Range("B" & Rows.Count).End(xlUp))
   .Value = Evaluate(.Columns(6).Address & "&" & .Columns(5).Address)
End With

'Time to Number Format
For Each c In Range("E4", Cells(Rows.Count, "E").End(xlUp))
    c = Replace(Left(c.Text, 6), ":", "")
Next

Range("C:D,F:H,J:J").Delete
Range("A3:E3").Value = Array("Date", "Airline", "Time", "PAX", "PCPAX")
Application.ScreenUpdating = True

End Sub

Thanks for any help with this.....!

 

[GlennUK]

So, you get the error when the button exists, but not when you've deleted it?

 

[RandyD123]

So, you get the error when the button exists, but not when you've deleted it?

yes, that is correct.....

 

[GlennUK]

So, if you create a new button, does the error come back? And if so, how are you creating the button?

 

[RandyD123]

So, if you create a new button, does the error come back? And if so, how are you creating the button?

yes it comes back, just a simple form control button

 

[GlennUK]

How strange. Delete that button, and insert a shape, see if you can save. If so, then assign your macro to the shape, and see if it still allows you to save.

 

[RandyD123]

How strange. Delete that button, and insert a shape, see if you can save. If so, then assign your macro to the shape, and see if it still allows you to save.

I thought the same thing, a shape produces that same result, picture too large.....

 

[GlennUK]

The only thing that comes to mind is that the workbook is corrupt in some way. Can you recreate your functionality in a new workbook (without copying sheet objects from the old workbook into the new workbook)?.

 

[RandyD123]

The only thing that comes to mind is that the workbook is corrupt in some way. Can you recreate your functionality in a new workbook (without copying sheet objects from the old workbook into the new workbook)?.

I can provide you a link the actual sheet with code, if that would help......?

 

[GlennUK]

I can give you advice on recreating your workbook. How many sheets does it have? What is the functionality of each sheet? Do any of the sheets have VBA code? How many VBA non-sheet modules exist?