MACRO Works but Quick Question on Editing the Macro Page

[JMcAnarney]

Sub JMcAnarney()
Dim Ws As Worksheet, Nws As Worksheet

I have the following MACRO written and it works perfectly:

If Evaluate("isref('Master Summary'!A1)") Then
Set Nws = Sheets("Master Summary")
Else
Set Nws = Sheets.Add(Sheets(1))
Nws.Name = "Master Summary"
End If
For Each Ws In Worksheets
If Ws.Name <> "Master Summary" Then
Nws.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(14, 20).Value = Ws.Range("L49:AE62").Value
End If
Next Ws
End Sub


My one question is that is it possible when I run this that the output page does not allow me to write any formulas on the page whatsoever. Obiously I can just expand the MACRO range; but is it possible to make these edits on page itself???

 

[6StringJazzer]

What is "the output page"?

 

[JMcAnarney]

So the way I have it set-up when I run the MACRO it compiles all the information from 100 different sheets into a new sheet named "Master Summary"

 

[Candyman8019]

Are you wanting to enable worksheet protection via VBA?

 

[JMcAnarney]

Not necessarily; for example when I run the Macro it looks like this but cells to the right if I were to write a formula using the Macro are not allowing calculation

 

[6StringJazzer]

The column seems to be formatted as Text. Change it to General and it should work.

 

[tonyyy]

Nws.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(14, 20).Value = Ws.Range("L49:AE62").Value

If I interpret your question correctly... In the above line of code, change .Value to .Formula

Cheers,

Tony