using excel to make stories

[MMUStudent]

Hi i am using excel to make bits of story that can be added together to make a new story
When i have the each bit done i need a webpage if that’s the correct name any ways an html thingy
So i was told to use a macro i recoded one and this is what i got

Sub partsOfStory()
'
' partsOfStory Macro
'
' Keyboard Shortcut: Ctrl+s
'
    Range("H1").Select
    Selection.Copy
    Application.CutCopyMode = False
    With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, "C:\Melissa\1234.htm", _
        "Sheet1", "", xlHtmlStatic, "zxc_18851", "")
        .Publish (True)
        .AutoRepublish = False
    End With
    ChDir "C:\Melissa"
End Sub

Now i am new to this kind of thing and need a bit of help
In H1 i have “the odd socks he was wearing were clearly visible has he had forgot to put on his pants”
And in H3 i have “he was feeling cold”
And in A1 i have the number 1234
This is only simple example any ways i got the 1234.htm logo thingy when i click it i get the following

the odd socks he was wearing were clearly visible has he had forgot to put on his
he was feeling cold
1234
I had to put the 1234 in when i did the macro as i could not find how to copy it from A1
What i wanted was two html pages starting with the number 1234
So page one was supposed to be 1234.htm and made a page with
“the odd socks he was wearing were clearly visible has he had forgot to put on his pants”
On it and then i was hoping to get 1235 with
he was feeling cold on it
the idea is to make little stories for children to read on the internet that’s why i need the html page and then they can make different stories by selecting different numbers
will i hope someone can help me thanks
Melissa