Hi K,

I do not think that you need to open a
new thread for a question posted 15
minutes ago.



---
Regards.
Norman


"K" wrote in message
...
Hi, How can i change in macro where it say "Sheet1" into
ActiveSheet. I tried many ways but i am getting errors. Please can
anybody help



Sub SAV()


Range("A2:F23").Select
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"C:\Documents and Settings\KAMRAN\My Documents\" &
Range("K1").Value & " - " & Range("H2").Value & ".htm", _
"Sheet1", "$A$2:$F$23", xlHtmlStatic, , "")
.Publish (True)
.AutoRepublish = False
End With
Range("A2").Select
End Sub