For Each Loop takes forever . Need suggestions please

Guys , Need Advice

Sample data
Column A
EXTR0993809 - Detailed description

I need to split column A and replace (as below)
Column A
Detailed description

Column B
EXTR0993809

Note: Sometimes , Column A may have only detailed description .

Below code does that ,however it takes really long time. Please help to find better solution

Set RNG = wstarget.ListObjects("WorksheetName").ListColumns(COLUMNA).DataBodyRange

For Each Cell In RNG.Cells
If (Left(Split(Cell.Value, " ")(0), 4)) = "EXTR" Then
Cell.Offset(0, off) = Trim(Split(Cell.Value, "-")(0))
str = Split(Cell.Value, "-", 2)(1)
Cell.Value = RemoveLeadingChr(str)
Else: End If
Next Cell

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here