runtime error 104

[Redhawk]

Good day everyone.
I have written a macro, and linked it to a control, to open an existing workbook and then to insert text in a specific cell(group of cells, the cells are merged). Regardless of what i change i keep on getting a runtime error 1004.

Here is the code i used:

Private Sub CommandButton1_Click()

' INSERTWHSQINWO Macro
' This macro inserts the white melamine squareline finish in the works order

Workbooks.Open Filename:="E:\Leisure Kitchens\NCS\PM.xls", UpdateLinks _
:=3
Range("F4:J6").Select
ActiveCell.FormulaR1C1 = "WHITE MELAMINE SQUARELINE"
With ActiveCell.Characters(Start:=1, Length:=25).Font
.Name = "Tahoma"
.FontStyle = "Regular"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

End Sub

Any suggestions would be greatly appreciated.

Thanks
Red

 

[Redhawk]

My thanks to all.

It finally works. Herewith for your interest the final code:

Private Sub CommandButton1_Click()


ChDir "E:\Leisure Kitchens\NCS"
Workbooks.Open Filename:="E:\Leisure Kitchens\NCS\PM.xls", UpdateLinks:=3
With ActiveWorkbook.ActiveSheet.Range("F4:J6")
.Value = "WHITE MELAMINE SQUARELINE"
With ActiveCell.Characters(Start:=1, Length:=25).Font
.Name = "Tahoma"
.FontStyle = "Regular"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End With

End Sub


Once again, many thanks

Red

 

[Norie]

Red

Glad to help.

By the way you don't actually need the ChDir, as you are using the full path when opening the workbook.