On 2 Jun, 19:08, JW <JWRIGH...@triad.rr.com> wrote:
> On Jun 2, 1:59*pm, K <kamranr1...@yahoo.co.uk> wrote:
>
>
>
>
>
> > On 2 Jun, 18:45, "Norman Jones" <normanjo...@wherforartthou.com>
> > 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" <kamranr1...@yahoo.co.uk> wrote in message
>
> > >news:59ccd30d-694b-48cb-a2d2-(E-Mail Removed)....
>
> > > > Hi, *How can i change in macro where it say "Sheet1" into
> > > > ActiveSheet. *I tried many ways but i am getting errors. *Pleasecan
> > > > 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
|
Similar Threads
