What I would like to do now is bold the first line and then bold/superscript all of the verse numbers. Also, as you can see from the 2nd picture and the red mark, how can I get rid of that leading space on the 2nd line? I know it's due to the Chr(10) in the last line, but not sure how to work around it.
Code: Select all
Sub PullOutScripture()
Dim strRange As String
Dim strRange2 As String
Dim rngcell As range
Dim numScp As Long: numScp = Sheet1.range("J16") + Sheet1.range("K17")
Dim myRow As range
Dim wsDest As Worksheet: Set wsDest = Sheet5
Dim wsSrc As Worksheet: Set wsSrc = Sheet1
With wsDest
With .range("F2:F" & .Cells(.Rows.Count, "F").End(xlUp).Row)
Set myRow = .Find(Sheet1.range("J17"), LookIn:=xlValues)
End With
End With
For Each rngcell In wsDest.range("G" & myRow.Row).Resize(numScp)
strRange = strRange & Chr(10) & rngcell.Offset(, -2) & " " & rngcell
strRange2 = strRange2 & " " & rngcell.Offset(, -2) & " " & rngcell
Next rngcell
wsDest.range("I5").Value = wsSrc.range("I17") & strRange
wsDest.range("I18").Value = wsSrc.range("I17") & Chr(10) & strRange2
End Sub