Auto Alt+Enter in some cells

**Nick_in_Dubai** · 07-26-2009, 07:01 AM

Hi everyone....

I have created a large worksheet for people to fill in, what i would like to do is for specific cells when the user hits enter, the equivilent of Alt+enter is executed so they move to a new line in the same cell.

1) im not sure if we can enable this in VB???
2) i would like this to happen for only a selection of cells say B10 D5 and E15 and the rest the normal enter event occures....

can anyone help???

**shg** · 07-26-2009, 12:59 PM

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Count > 1 Then Exit Sub
        If Not Intersect(.Cells, Range("B10,D5,E15")) Is Nothing Then
            If .HasFormula Then
                Application.EnableEvents = False
                .FormulaArray = .Formula
                Application.EnableEvents = True
            End If
        End If
    End With
End Sub

**Nick_in_Dubai** · 07-27-2009, 12:03 AM

Thanks,

I dont seem to get the result im after, im not sure what this code is executing?

when i hit return in those cells it just drops to the next cell?

nick