convert a single-celll range to a cell

The code below generates a type mismatch error as shown. I think it's because 'Target' is a single-cell range, not a cell proper, so 'Target.Value' fails but I don't know how to convert the range to a cell. Help appreciated.

Private Sub Worksheet_Change(ByVal Target As Range)
	If Intersect(Target, Range("InputRange")) Is Nothing Then
		Exit Sub  'the cell that changed isn't in the range we're concerned with
	ElseIf Target.Value = "" Then                                                                         '<------ type mismatch error here
		Target.Value = Target.Offset(0, 3).Value    're-assert the default value
	End If
End Sub

Thanks - Jim

Moderators Note: Please follow Forum Rule #3 and use code tags. Added this time, but please use them in the future…Thanks.