Delete everything between two text lines in a variable

[neqkeet]

I'm trying to delete a text between two text lines in a variable "RangeToHtml". I want to delete everything between

<![if supportMisalignedColumns]>

and

<![endif]>

, which present only once in the whole code.

<![if supportMisalignedColumns]> 
  <tr height=0 style='display:none'>
  <td width=76 style='width:57pt'></td>
  <td width=216 style='width:162pt'></td>
  <td width=113 style='width:85pt'></td>
  <td width=120 style='width:90pt'></td>
  <td width=56 style='width:42pt'></td>
 </tr>
 <![endif]>

I've tried to use the code below, which gave me no result.

RangetoHTML = Replace(RangetoHTML, "<![if supportMisalignedColumns]>*<![endif]>", "")

 

[wideboydixon]

Dim startChar As Long
Dim endChar As Long

startChar = InStr(1, RangetoHTML, "<![if supportMisalignedColumns]>")
endChar = InStr(startChar, RangetoHTML, "<![endif]>")

RangetoHTML = Left(RangetoHTML, startChar - 1) & Mid(RangetoHTML, endChar + 10)

WBD

 

[VBA Geek]

what about if you do:

 

[neqkeet]

WBD's code is exactly what I need. Thank you!
VBA Geek, thanks for trying to help

 

[Peter_SSs]

You could also try

RangeToHtml = Split(RangeToHtml, "<![if supportMisalignedColumns]>")(0) & Split(RangeToHtml, "<![endif]>")(1)

 

[wideboydixon]

You could also try...

The problem with this is if <![endif]> also appears before the first string.

WBD

 

[Peter_SSs]

The problem with this is if <![endif]> also appears before the first string.

Perhaps I misinterpreted ..

.. and

<![endif]>

, which present only once in the whole code.

If what you suggest is possible then we can still do it with a similar method

RangeToHtml = Split(RangeToHtml, "<![if supportMisalignedColumns]>")(0) & Split(Split(RangeToHtml, "<![if supportMisalignedColumns]>")(1), "<![endif]>")(1)