If you put a commandbutton from the control toolbox toolbar on a new worksheet
and double click on it, you'll see this procedu

Private Sub CommandButton1_Click()

You can't just add more passed parms to these built in procedures.

But if you were using Sh to represent the worksheet with the commandbutton, you
could just use me.

me.range("a1")....
If the button is on the Report worksheet, you could use:
me.unprotect

But I'm confused on what you're doing with Target.



Daniel R. Young wrote:

I am so close to finishing this button but I am getting the error:

Compile error:
Procedure declartion does not match description of event or procedrue having
the same name.

Here is my code:
Private Sub Commandbutton1_click(ByVal Sh As Object, ByVal Target As Range)
Worksheets("Report").Unprotect
Dim rng As Range, rngA As Range
If Target.Value("Report").Range("A1:J9769") = "No Photo" Then
Set rng = Target.Offset(-3, -1)
Selection.Font.ColorIndex = 2
Selection.Interior.ColorIndex = 2
Range("A1:J9769").Select
Selection.Copy
Dim WDApp As Object
Dim WDDoc As Object
Dim myDocName As String

myDocName = "Survey Report.doc"

Set WDApp = CreateObject("Word.Application")
WDApp.Visible = True

Set WDDoc = WDApp.documents.Open("F:\Survey Test\Word\Survey Report.doc")

Worksheets("Report").Protect
ws_exit:
Application.EnableEvents = True
End Sub

Can somone help?

Thank you,

Daniel

--

Dave Peterson