call macro and user defined fields.

[culcuhain]

Good afternoon,
I have my macro that has a field created called (not via a DIM statement) Department.

A little ways into the Macro I have an IF THEN ELSE statement that CALLS another macro. I get a runtime error 424 when I try to populate my data with the value of Department.

So I have 2 questions.
1. Do I have to restate the value of Department in the called macro?
2. Should I have declared that variable instead? (DIM)

thanks!!

 

[VoG]

Please post your code.

 

[culcuhain]

here is a snipit from the main macro

For Each Department In Range("J2:J" & Range("J" & Rows.Count).End(xlUp).Row)
Range("G5").Value = Department
ApptFlag = Range("G9").Value

here is where I call the macro a little later:

If ApptFlag = "Y" Then
    Call ApptSummary
Else
    Sheets("Dept Appt").Visible = False
End If

and here is where I get the runtime Error

Sheets("Dept Appt").Visible = True
    Sheets("Dept Appt").Select
    Cells.Select
    Selection.EntireRow.Hidden = False
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Department"). _
    CurrentPage = Department.Value
    Cells.Select

It has the ActiveSheet.PivotTables line highlighted.

It worked fine until I tried to break out the section into a new macro.

Thanks!