Change Cell Button to apply to all selected cells

[JasonBing]

I have had a request from management. I have the following macro assigned to a button

Sub TaskNotDone ()
    With ActiveCell
    .Value = "N/A"
    End With

End Sub

This changes the active cell to N/A

is there a way I can have this work if there are multiple cells selected. The guys find the one by one method too slow. The want to select multiple cells and press a button to apply N/A to them all

Thanks

Regards

Jason Bing

 

[Fluff]

How about

   Selection.Value = "N/A"

 

[JackDanIce]

Try:

Sub TaskNotDone
Selection.Value = "N/A"
End Sub

 

[JasonBing]

Well that was obvious. I am a VBA Student, I have much learning to do

Thanks Guys

Regards

Jason Bing

 

[Fluff]

Glad we could help & thanks for the feedback