Setting the ActiveCell is not working

[Foo_Man_Chu]

I feel embarrassed about posting this one, but I'm at my wit's end. Here's my code:

Public Sub setactivecell()
    Worksheets("Sheet1").Activate
    Worksheets("Sheet1").Range("F1:H4").Select
    Worksheets("Sheet1").Range("G3").Select
    MsgBox (activecell.address)
End Sub

This is the only line I really care about:

Worksheets("Sheet1").Range("G3").Select

If you haven't guessed it by now, all I want to do is set the ActiveCell on the sheet. But for all that I do it sets the ActiveCell to D3.

Somebody please help.

 

[StephenCrump]

Are D3:G3 merged cells?

 

[Foo_Man_Chu]

Thanks a ton Stephen, I'd be typing in all caps right now but I don't want to be rude. That was the answer. Thank you a million times over!