Me00550
06-18-2019, 08:41 AM
get a run time error '9' subscript out of range
the error occurs on line 6 thru 10
funny thing is this code works most of the time.
Sub CloseMe()Call MessageBoxTimer5
Sheets("Final Use").Range("D11").ClearContents
Worksheets("Sheet2").Range("F1").Copy
Worksheets("Final Use").Range("D13").PasteSpecial Paste:=xlPasteValues
Sheets("Final Use").Range("D11").ClearContents
Sheets("QAT USE").Range("C11").ClearContents
Sheets("QAT USE").Range("C13").ClearContents
Sheets("QAT USE").Range("C15").ClearContents
Sheets("QAT USE").Range("C17").ClearContents
Sheets("QAT USE").Range("C19").ClearContents
Application.DisplayAlerts = False
'ThisWorkbook.Save
'ThisWorkbook.Close
End Sub
the error occurs on line 6 thru 10
funny thing is this code works most of the time.
Sub CloseMe()Call MessageBoxTimer5
Sheets("Final Use").Range("D11").ClearContents
Worksheets("Sheet2").Range("F1").Copy
Worksheets("Final Use").Range("D13").PasteSpecial Paste:=xlPasteValues
Sheets("Final Use").Range("D11").ClearContents
Sheets("QAT USE").Range("C11").ClearContents
Sheets("QAT USE").Range("C13").ClearContents
Sheets("QAT USE").Range("C15").ClearContents
Sheets("QAT USE").Range("C17").ClearContents
Sheets("QAT USE").Range("C19").ClearContents
Application.DisplayAlerts = False
'ThisWorkbook.Save
'ThisWorkbook.Close
End Sub