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