Macro to add prefill standard text headings

[Apple08]

Hi All

I need to use Macro to add in prefill standard text headings for users to fill in their comments under the headings. I have the macro below. However it disables users filling in text under the headings. Please could anyone help?

Private Sub Comments_Text()
  
    Dim x As Long, lastRow As Long

    lastRow = Cells(Rows.Count, "A").End(xlUp).row
    
    Range("G2:G" & lastRow).Value = "1. Status" & Chr(10) & "2. Current Issues" & Chr(10) & "3. Risks"

End Sub

 

[RobP]

Hi,

not quite sure what you mean by "under the headings" - do you mean you cannot enter any data in Col G starting Row 3 ? (as I don't share the issue)?

In order to enter data into the same cell as the headings (your macro gives the output below on a blank worksheet), you need to use "Alt+Enter" when the cursor is on 1. Status etc. ?

Does it help ?
cheers
Rob

SEQUENCE_example.xlsx
	A	B	C	D	E	F	G	H
1							1. Status 2. Current Issues 3. Risks
2							1. Status 2. Current Issues 3. Risks
3
Sheet1

 

[Apple08]

Thanks very much RobP, Alt Enter does work!

 

[RobP]

Great, glad to be of help...

thanks for the feedback
Rob