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

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

On Jun 2, 1:59*pm, K wrote:
On 2 Jun, 18:45, "Norman Jones"
wrote:





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- Hide quoted text -

- 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- Hide quoted text -

- Show quoted text -

Change "Sheet1" to ActiveSheet.Name

On 2 Jun, 19:08, JW wrote:
On Jun 2, 1:59*pm, K wrote:





On 2 Jun, 18:45, "Norman Jones"
wrote:

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- Hide quoted text -

- 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- Hide quoted text -

- Show quoted text -

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

- Show quoted text -

Thanks lot JW that what i needed