Macro aanpassen

[Vriesacker]

ik heb een werkblad met verschillende sheet, (week 1, week 2, week 3, enz)het gaat over voetbalpunten.
de macro zou dus moeten werken in de sheet die ik aantik, AktiveSheetName,
Bij onderstaande macro selecteerd hij altijd dezelfde sheet,
wie kan dit aanpassen?




Sub Machuitweb(),
'
' Machuitweb Macro
'

'
Range("A1:G44").Select
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"C:\Users\Prive\Documents\Mijn website2\Week.htm", "W4", "$A$1:$G$44", _
xlHtmlStatic, "Pronostiek Machuit V1_21075", "")
.Publish (True)
.AutoRepublish = False
End With
Range("I42").Select
End Sub

 

[edmoor]

Wijzig "W4" eens in Activesheet.Name
Niet tussen " tekens zetten.

 

[Vriesacker]

hij geeft een foutmelding, de zin van activesheet komt in het rood te staan

Sub Machuitweek()
'
' Machuitweek Macro
'


Range("A1:G44").Select
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"C:\Users\Vriesacker Danny\Documents\Mijn website2\Week.htm",Activesheet.name,
"$A$1:$G$44", xlHtmlStatic, "Pronostiek Machuit V1_32326", "")
.Publish (True)
.AutoRepublish = False
End With
ChDir "C:\Users\Vriesacker Danny\Documents\Mijn website2"
End Sub

 

[SjonR]

plaats je bestand eens

 

[edmoor]

Dat komt omdat je het _ teken na de komma ook hebt verwijderd.

"C:\Users\Vriesacker Danny\Documents\Mijn website2\Week.htm",Activesheet.name, [COLOR="#FF0000"][/COLOR]_

 

[Vriesacker]

macro's aanpassen,

de macro staat in de werkbalk

 

[SjonR]

Er staat geen spatie tussen de , en de _ . dan blijft de tekst rood en werkt het zeker niet. zie #5 van Edmoor

of :

Sub Machuitweek()
'
' Machuitweek Macro
'

'
    Range("A1:G44").Select
    With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "C:\Users\Vriesacker Danny\Documents\Mijn website2\Week.htm", Activesheet.name, _
        "$A$1:$G$44", xlHtmlStatic, "Pronostiek Machuit V1_32326", "")
        .Publish (True)
        .AutoRepublish = False
    End With
    ChDir "C:\Users\Vriesacker Danny\Documents\Mijn website2"
End Sub

 

[Vriesacker]

vriendelijk bedankt