I have the following code which is trying to determine the maximum value in
the whole column beside the target cell, then add 1 to it and enter it in the
column beside the target cell. It doesn't give an error but it is not
selecting the right values

Target.Offset(0, 1) = WorksheetFunction.Max(Range(Target.Column + 1 & ":" &
Target.Column + 1)) + 1

Thanks