CORRECTION NEEDED

[K]

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

 

[Norman Jones]

Hi K,

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

 

[K]

Hi K,

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

---
Regards.
Norman








- Show quoted text -

Hi Norman, Yes i know my friend and i am sorry for this as i thought
Jim might be offline and i am still at work and i need to finish my
project for which i need this macro. And my last thread was not 15
minutes ago it was actually 2 hours ago. if you have any suggestions
please let me know

 

[JW]

Hi Norman,  Yes i know my friend and i am sorry for this as i thought
Jim might be offline and i am still at work and i need to finish my
project for which i need this macro.  And my last thread was not 15
minutes ago it was actually 2 hours ago.  if you have any suggestions
please let me know- Hide quoted text -

- Show quoted text -

Change "Sheet1" to ActiveSheet.Name

 

[K]

Change "Sheet1" to ActiveSheet.Name- Hide quoted text -

- Show quoted text -

Thanks lot JW that what i needed