Run-Time Error 13 Type Mismatch

لدي ملف اكسل باعمل له يوميا INTILIZE بتاريخ اليوم لمسخ اخر بيانات واضافة بيانت جديدة ولكن في اول يوم في 2011 ظهرت لي الرساله دي Run-Time Error 13 Type Mismatch فاود منكم المساعدة وكود اللي باستخدمه في INTILIZE هو

Dim NewRecord As String
Dim ReportName As String
Dim Title As String
Dim LocalPath As String


'Initialise Variables
ReportName = ThisWorkbook.Worksheets("REPORT").Range("ReportName").Value
LocalPath = ThisWorkbook.Worksheets("REPORT").Range("LocalPath").Value
NewRecord = ThisWorkbook.Worksheets("REPORT").Range("ReportDate1").Value

RecordNumber = InputBox( _
prompt:="Change the date below or click OK to accept.", _
Title:="Add the date to the filename", _
Default:=NewRecord) 'Use the current date +1 as default.
Worksheets("REPORT").Activate
ThisWorkbook.Worksheets("REPORT").Range("REPDATE") = RecordNumber

ActiveWorkbook.SaveAs _
Filename:=LocalPath & ReportName & " " & RecordNumber, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.ScreenUpdating = True
End Sub

Run-Time Error 13 Type Mismatch

مواضيع مشابهة