That's the error I keep getting and for the life of me can't figure out why. Any thoughts? Thanks.
Dim LastSheet As String
LastSheet = Worksheets(Worksheets.Count).Name
With Worksheets("Summary")
lMaxRows = .Cells(.Rows.Count, "q").End(xlUp).Row
.Range("q" & lMaxRows + 1).Formula = "=text('" & LastSheet & "'!BO49/& '" & LastSheet & "'!BJ49,""0%"")"
End With