damit du das Makro starten kannst musst du die Makrosicherheit auf Mittel stellen (Extras -> Optionen -> Sicherheit). Dann wirst du beim Öffnen der Datei gefragt, ob Makros erlaubt sein sollen.
Zum Testen (und sehen, was passiert) würde ich die empfehlen im Code:
Code: Alles auswählen
Sub Main
For i = 65 To 90
For j = 64 To 90
If j = 64 Then
'A-Z
bsk = CHR(i)
Else
'AA-ZZ
bsk = CHR(i) & CHR(j)
End If
'msgbox bsk
Add_HTML_AreaLink(bsk)
Next j
Next i
End Sub
Code: Alles auswählen
Sub Main
For i = 65 To 67
For j = 64 To 67
If j = 64 Then
'A-Z
bsk = CHR(i)
Else
'AA-ZZ
bsk = CHR(i) & CHR(j)
End If
'msgbox bsk
Add_HTML_AreaLink(bsk)
Next j
Next i
End Sub
Wenn du danach feststellst, dass ich dich falsch verstanden habe, dann einfach weiterfragen.