Excel refresh page

[nicolaforni]

Hi,

If I save macro to refresh sheet2 starting from sheet1 this works fine.

[vba]Sheets("Sheet2").Select
Range("C4").Select
Application.Run "BLPLinkReset"
ActiveCell.FormulaR1C1 = "2"
Range("C5").Select
End Sub[/vba]
If I add a command button and use it to run same code this does not work.
I get error message:
Run-time error '1004' Select method of Range class failed.

[vba]Private Sub CommandButton1_Click()
Sheets("Sheet2").Select
Range("C4").Select
Application.Run "BLPLinkReset"
ActiveCell.FormulaR1C1 = "2"
Range("C5").Select
End Sub[/vba]
Why is it that the same code does not work using the command button?



Thanks!
Nick

[mdmackillop]

Try this, putting MyMacro in a Standard module.

[VBA]
Private Sub CommandButton1_Click()
call MyMacro
End Sub

Sub MyMacro()
Sheets("Sheet2").Select
Range("C4").Select
Application.Run "BLPLinkReset"
ActiveCell.FormulaR1C1 = "2"
Range("C5").Select
End Sub

[/VBA]

[nicolaforni]

Thanks,

[mdmackillop]

Basically, code in a Sheet module doesn't like working with another sheet.