Urgent Help with Code: Matter of life and death.... Of a forum that is...

[JapanDave]

I just can't seem to get the syntax correct, could a guru help me out?

I keep getting a "Database error, Do you want to leave this Page?"

Sub EX()

   Dim ExcelForum As Object
     Set ExcelForum = Internet.Popularity

Nxt:

        With ExcelForum
            Do
               .Replace What:="Vaibhav 'sTeam", Replacement:="Simon Lloyd ", LookAt:=xlPart, _
                  SearchOrder:=xlByRows, MatchCase:=False
            Loop Until Forum Problems are fixed
        
        End With
          If All Problems Are fixed Then
             If post is Premature Then
                 Goto Nxt
                 MsgBox "All Probelms Are completely fixed"
                ExcelForum.Post.Bugs.CompletelySolved
             End If
          End If
End Sub

[Andrew-R]

I'm no expert, but I think you're ending your With statement too early, thus the line:

If All Problems Are fixed Then

Is evaluating problems in the context of the entire world, so will be picking up problems such as world hunger, the nuclear threat from North Korea, armed conflict across the globe and my wife's unreasonable refusal to dress up as a naughty schoolgirl.

Also if you check the release notes that came with Earth v1.0 (Beta) you'll see there's a long outstanding bug fix, and the actual message you're seeing *should* read "Do you want to leave this planet"

Hope this helps.

[JapanDave]

So, should I declare that as a "global" Variable then? LOL

[MarvinP]

Does she dress up for others and just not you?