Sub Do_It()
With ActiveSheet
' whole text
.Range("B4").Font.Superscript = True
' 7th letter
.Range("B4").Characters(7, 1).Font.Superscript = True
End With
End Sub
.Characters(7,1)
-part too.Characters(here_needed_number,2)
- partSub Do_It()
With ActiveSheet
' use this is You want to do this to whole text
'' .Range("B4").Font.Superscript = True
' use this is You want to do this to 7th letter
.Range("B4").Characters(7, 1).Font.Superscript = True
End With
End Sub
.Replace "2*trips*EU*", "2 Trips - 1" & U115116 & " trip-EU No Show/2" & U110100 & " trip-Completed", xlWhole
.Replace "2*trips*EU*", "2 Trips - 1" & WorksheetFunction.Unichar(115) & WorksheetFunction.Unichar(116) & " trip-EU No Show/2" & WorksheetFunction.Unichar(110) & WorksheetFunction.Unichar(100) & " trip-Completed", xlWhole
.Range("B4").Characters(7, 1).Font.Superscript = True
.Characters(7, 1).Font.Superscript = True
.Characters(7, 3).Font.Superscript = False
U738116 = WorksheetFunction.Unichar(738) & WorksheetFunction.Unichar(116)
U110100 = WorksheetFunction.Unichar(110) & WorksheetFunction.Unichar(100)
.Replace "2*trips*EU*", "2 Trips - 1" & U738116 & " trip-EU No Show/2" & U110100 & " trip-Completed", xlWhole
.cells(y,x).Characters(position_of_U738, 2).Font.Superscript = True
.cells(y,x).Characters(position_of_U110, 2).Font.Superscript = True
2 Trips - 1st trip-EU No Show/2nd trip-Completed |
.Replace "2*trips*EU*", "2 Trips - 1st trip-EU No Show/2nd trip-Completed", xlWhole
' IF SOMETHING WAS REPLACED PER INSTRUCTIONS IN THE LINE ABOVE, THEN:
For y = 1 To Ws.Cells(Ws.Cells.Rows.Count, "D").End(xlUp).Row
If .Cells(y, 1).Value <> Empty Then
.Cells(y, 1).Characters(12, 2).Font.Superscript = True
.Cells(y, 1).Characters(32, 2).Font.Superscript = True
End If
Next y
.Replace "2*trips*Site*", "2 Trips - 1st trip-Site Not Ready/2nd trip-Completed", xlWhole
' IF SOMETHING WAS REPLACED PER INSTRUCTIONS IN THE LINE ABOVE, THEN:
For y = 1 To Ws.Cells(Ws.Cells.Rows.Count, "D").End(xlUp).Row
If .Cells(y, 1).Value <> Empty Then
.Cells(y, 1).Characters(12, 2).Font.Superscript = True
.Cells(y, 1).Characters(36, 2).Font.Superscript = True
End If
Next y
I greatly appreciate you hanging in there with me for this. All works well. Thanks, vletm!Eloise T
Simplification means double or more work.
Should there be any connection with Your sentence 'If something was replaced...'?
If Yes then there should add something else too.
1Mb limit is good ... but ... that could solve this way.