Sub Look_At_A37() If Len(Range("A37")) > 1 Then Range("C15").Value = Range("A37").Value Range("C16").Value = Range("A38").Value End If End Sub