This code goes in the worksheet module that owns that commandbutton (from the
control toolbox toolbar):

Option Explicit
Private Sub CommandButton1_Click()
With Me.CommandButton1.TopLeftCell
'one column to the right
With .Offset(0, 1)
.NumberFormat = "mmmm dd, yyyy"
.Value = Date
End With
'two columns over
With .Offset(0, 2)
ThisWorkbook.FollowHyperlink Address:=.Value, NewWindow:=True
End With
End With
End Sub



On 09/30/2010 17:33, wrote:
Hello all,

I was wondering if someone more knowledgeable could give me a tip on
something I want to accomplish in Excel 2003. It is as follows:

I have a command button sized exactly as cell A1. A click on this
button should invoke VBA code that can do the following:

a) Enter the current date in cell B1. The code should be able to
determine the location of the command button and enter the current
date in the next cell over (B1 in this case).

b) The code should then be able to read a URL stored two cells over
(C1 in this case) and launch said URL in Internet Explorer.

Any guidance or a working subroutine that sequentially accomplishes
these two tasks would be greatly appreciated.

Thanks

Arsene

--
Dave Peterson