Run-time error '1004' ?

**sonyidicula** · 05-14-2010, 04:06 AM

HI there on the code below I am getting run-time error 1004 whenever it reaches
Range("A3").Select

Please help

Sub UpdateBtn_Click()
 
    Sheets("Data").Select
    
    Dim NewMGRate As Double
    NewMGRate = InputBox("Enter today's MG Rate")
    Range("A3").Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Value = NewMGRate   
    
End Sub

**antoka05** · 05-14-2010, 04:43 AM

Try with this macro:

Sub UpdateBtn_Click()
    Dim shData As Worksheet
    Set shData = ThisWorkbook.Sheets("Data")
    shData.Select
    
    Dim NewMGRate As Double
    NewMGRate = InputBox("Enter today's MG Rate")
    shData.Range("A3").Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Value = NewMGRate
End Sub

or, better, with this:

Sub UpdateBtn_Click()
    Dim sh As Worksheet
    
    Set sh = ThisWorkbook.Sheets("Data")
    sh.Select
    Dim NewMGRate As Double
    
    NewMGRate = InputBox("Enter today's MG Rate")
    myCol = sh.Range("A3").End(xlToRight).Offset(0, 1).Column
    sh.Cells(3, myCol) = NewMGRate
End Sub

Regards,
Antonio