westend9876
Member
I'm trying to clear the contents from cells in the following seven worksheets within my workbook. However, I get an error message: "Run-time error '13' Type mismatch". My code is below. What am I doing wrong?
Code:
Sub Clear_All()
Dim aRange, bRange, cRange, dRange, eRange, fRange, gRange As Range
Set aRange = Sheets("FHA_Stream").Range("B4, B6, B10, B13, B14, B20, B23, B24, H26").ClearContents
Set bRange = Sheets("VA_IRRRL").Range("B4:B6, B9, B13:B14, B17, B21:B22, E9, H9").ClearContents
Set cRange = Sheets("Full_Doc").Range("B1, B2:B5, B10:B11, B14, B18:B22, B25, B29:B33, E25, H12:H14").ClearContents
Set dRange = Sheets("VA_IRRRL").Range("B4:B6, B9, B13:B14, B17, B21:B22, E9, H9").ClearContents
Set eRange = Sheets("Amortization").Range("B7, H5:I7").ClearContents
Set fRange = Sheets("Payment-Calc").Range("C3:C5").ClearContents
Set gRange = Sheets("MSP_Inputs").Range("I1:I23, I28:I31, I33, I35, I41:I55, K24:L27, K36:L39 ").ClearContents
aRange.ClearContents
bRange.ClearContents
cRange.ClearContents
dRange.ClearContents
eRange.ClearContents
fRange.ClearContents
gRange.ClearContents
End Sub
Last edited by a moderator: