I'm at a complete loss here. I'm trying to add a value to a range of cells...something I've done countless times. This time, I'm getting an Object required error. The only nuance I can think of is the range, but the row numbers are being identified correctly.
VBA Code:
Sub ImportReqResults()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim m As Workbook, s As Workbook
Dim mD As Worksheet, sD As Worksheet
Dim mDLR As Long, sDLR As Long, mDNLR As Long
Set m = ThisWorkbook
Set mD = m.Sheets("Data")
mDLR = mD.Range("C" & Rows.Count).End(xlUp).Row
mDNR = mD.Range("C" & Rows.Count).End(xlUp).Row + 1
'I perform various updates here
mDNLR = mD.Range("C" & Rows.Count).End(xlUp).Row
'Adds the Data Source name in the Data Source column of this workbook.
With mD.Range("A" & mDNR) & ":" & mD.Range("A" & mDNLR)
.Value = "Req Results" 'Error appears here.
End With
'Adds Today's date in the Source Ingested column of this workbook.
With mD.Range("B" & mDNR) & ":" & mD.Range("B" & mDNLR)
.Value = "=Today()"
.NumberFormat = "MM/DD/YY"
.Value = .Value
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub