I'm getting a compile error . Expected End Sub ??

[MikeyZ]

Can anyone help on this? I don't know what to look for to fix.


Application.Goto Reference:="R6C29"
Sub MG10Oct01()
Dim rng As Range, Dn As Range, Sp As Variant, n As Long, c As Long
Set rng = Range(Range("Z1"), Range("Z" & Rows.Count).End(xlUp))
Application.ScreenUpdating = False
For Each Dn In rng
For n = 1 To Len(Dn.Value)
If Dn.Characters(n, 6).Text = "530ZBA" Then
Dn.Characters(n, 6).Font.Color = vbRed
End If
Next n
Next Dn
Application.ScreenUpdating = True
End Sub

 

[louisH]

Hi,

Looks like this line of code :

Application.Goto Reference:="R6C29"

isn't between the Sub and End Sub.
Try this :

Sub MG10Oct01()
Application.Goto Reference:="R6C29"
 Dim rng As Range, Dn As Range, Sp As Variant, n As Long, c As Long
 Set rng =Range("Z1:Z" & Range("Z1").End(xlDown).Row)
 Application.ScreenUpdating = False
 For Each Dn In rng
   For n = 1 To Len(Dn.Value)
        If Dn.Characters(n, 6).Text = "530ZBA" Then
            Dn.Characters(n, 6).Font.Color = vbRed
        End If
   Next n
 Next Dn
 Application.ScreenUpdating = True
 End Sub