waarom werkt de macro niet?

[Peter404]

Hallo allemaal

Ik heb de volgenhde vraag. Ik heb momenteel een macro. Deze is alsvolgt geprogrammeerd:

Sub Sign()
'
' Sign Macro
' De macro is opgenomen op 4-11-2010 door LOZPWA01.
'

  Dim sh       As Worksheet
  For This =
    If LCase(Left(sh.Name, 6)) = "review" Then             '1e 6 karakters zijn "review" (kleine letters)

      

      With sh.Range("L2")                                  'op je zoveelste review-blad, cel L2
        .FormulaR1C1 = "a"
        With .Characters(Start:=1, Length:=1).Font
          .Name = "Marlett"
          .FontStyle = "Vet"
          .Size = 10
          .Strikethrough = False
          .Superscript = False
          .Subscript = False
          .OutlineFont = False
          .Shadow = False
          .Underline = xlUnderlineStyleNone
          .ColorIndex = 5
        End With

      End With
    End If
  Next
End Sub

Deze werkt prima!! Ik heb nu een nieuwe macro aangemaakt waarin de deze tekst heb aangepast. Zie hieronder.

Sub Sign_p1()
'
' Sign_p1 Macro
' De macro is opgenomen op 4-11-2010 door LOZPWA01.
'

  Dim sh       As Worksheet
    For This=
    If LCase(Left(sh.Name, 6)) = "Review" Then             '1e 6 karakters zijn "review" (kleine letters)

      

      With sh.Range("L2")                                  'op je zoveelste review-blad, cel L2
        .FormulaR1C1 = "Pdw"
        With .Characters(Start:=1, Length:=1).Font
          .Name = "Arial"
          .FontStyle = "Vet"
          .Size = 10
          .Strikethrough = False
          .Superscript = False
          .Subscript = False
          .OutlineFont = False
          .Shadow = False
          .Underline = xlUnderlineStyleNone
          .ColorIndex = 5
        End With

      End With
    End If
  Next
End Sub

Deze macro werkt echter niet!! De uitdrukking ForThis staat rood aangegeven.

Kan iemand mij helpen? Ik weet niet waar de fout zit.

Alvast bedankt

Groeten
Peter

 

[zapatr]

Ik heb je macro's niet uitgebreid bestudeerd, maar even een blik erop werpen toont al aan dat beide macro's een foutmelding zullen geven, alleen al door de opdracht:
For this =
De for-next lus vereist een begin, zoals bv.
For a = 1 to 100
waarbij je voor a een willekeurige andere variabele kunt gebruiken en voor 100 een willekeurig ander getal.

 

[wampier]

Inderdaad geen idee waarom de eerste wel zou werken, maar als je

for this=

vervangt met:

for each sh in sheets

zou het moeten werken.

 

[edmoor]

Dit kan ook niet:
If LCase(Left(sh.Name, 6)) = "Review" Then
Syntaxis klopt wel maar de vergelijking is nooit "waar".


Dat zou dan dit moeten zijn:
If LCase(Left(sh.Name, 6)) = "review" Then