Cell data depending on column selected.

A pretty simple VBA problem in excel

I am trying to create a simple module to input either P1 or P2 in
selected cells.

If the column selected is D, E, F G

D and E should equal P1
F and G should equal P2

This should work for any combination such as if only D or G is selected
D = P1, G = P2.

I have the following worked out but I cannot get it to fill in the
cells properly, if I only select a single cell it works fine, but if I
select D - G it fills it all with P1.

code:
Sub CellFill()

If (ActiveCell.Column = 4 Or ActiveCell.Column = 5) Then
ActiveCell.Value = "P1"
Else
ActiveCell.Value = "P2"
End If

End Sub
/code



Any help is appreciated

Sub CellFill()
Dim cell As Range

For Each cell In Selection
If (cell.Column = 4 Or cell.Column = 5) Then
cell.Value = "P1"
Else
cell.Value = "P2"
End If
Next cell

End Sub



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

<[email protected]> wrote in message
news:[email protected]...
> A pretty simple VBA problem in excel
>
> I am trying to create a simple module to input either P1 or P2 in
> selected cells.
>
> If the column selected is D, E, F G
>
> D and E should equal P1
> F and G should equal P2
>
> This should work for any combination such as if only D or G is selected
> D = P1, G = P2.
>
> I have the following worked out but I cannot get it to fill in the
> cells properly, if I only select a single cell it works fine, but if I
> select D - G it fills it all with P1.
>
> code:
> Sub CellFill()
>
> If (ActiveCell.Column = 4 Or ActiveCell.Column = 5) Then
> ActiveCell.Value = "P1"
> Else
> ActiveCell.Value = "P2"
> End If
>
> End Sub
> /code
>
>
>
> Any help is appreciated
>