VBA to enter and delete formula

[aliaslamy2k]

Dear Colleagues,

I need a VBA code to enter and delete below formula ( one by one ) in worksheet name " APP " in cell A2 ??

=(APPLC|'0F1X35'!UC)
=(APPLC|'0F1X35'!'UA')
=(APPLC|'0F1X35'!'MA')


many thanks in advance.

Kind regards,
AB

 

[Ruddles]

With Sheets(" APP ")
  .Range("A2") = "=(APPLC|'0F1X35'!UC)"
  .Range("A2").ClearContents
  .Range("A2") = "=(APPLC|'0F1X35'!'UA')"
  .Range("A2").ClearContents
  .Range("A2") = "=(APPLC|'0F1X35'!'MA')"
  .Range("A2").ClearContents
End With

 

[aliaslamy2k]

Dear Ruddles

Thanks you very much . Can you please tell me how to run this code ?
I am trying to assigning same to macro button, but its not working.
am I doing some thing wrong??


Private Sub CommandButton1_Click()
With Sheets(" APP ")
.Range("A2") = "=(APPLC|'0F1X35'!UC)"
.Range("A2").ClearContents
.Range("A2") = "=(APPLC|'0F1X35'!'UA')"
.Range("A2").ClearContents
.Range("A2") = "=(APPLC|'0F1X35'!'MA')"
.Range("A2").ClearContents
End With
End Sub


Error response :- Run time error '9'; Sub script out of range.


Kind regards,
AB

 

[Ruddles]

Looks like VBA can't find a sheet called " APP ".

Double-check the name.

 

[aliaslamy2k]

Hi Ruddles,


I got it, actually i deleted the space between comma's ("APP")


Many thanks.
AB