mehrere Variable Druckbereiche auf einem blatt

Hallo zusammen,
und wieder habe ich ein problem das ich nicht gelößt bekomme. Ich versuche bestimmte bereiche eines Datenblattas als Druckbereiche festzulegen wenn die jeweilige Variable <>0 ist. diese soll er in einem sting/Array oder was auch immer zusammensetzen und dann per ActiveSheet.PageSetup.PrintArea = PRArray festlegen. ich bekomme aber immer eine Fehlermeldung

'set print area Detailaufstellung
Dim pArea As String
Wkb2.Worksheets("3 Detailaufstellung").Activate
If LrH1 <> 0 Then
pArea = Chr(34) & "$A$11:$s$" & Chr(34) & 11 + (LrH1) * 3 - 1 & "," & Chr(34)
End If
If LrDB1 <> 0 Then
If pArea <> "" Then
pArea = pArea & ", " & Chr(34) & "$A$188:$s$" & Chr(34) & "& 188 + (LrDB1) * 3 - 1"
Else
pArea = Chr(34) & "$A$188:$s$" & Chr(34) & "& 188 + (LrDB1) * 3 - 1"
End If
End If
If LrDM1 <> 0 Then
If pArea <> "" Then
pArea = pArea & ", " & Chr(34) & "$A$365:$s$" & Chr(34) & "& 365 + (LrDM1) * 3 - 1"
Else
pArea = Chr(34) & "$A$365:$s$" & Chr(34) & "& 365 + (LrDM1) * 3 - 1"
End If
End If
pArea = pArea & ", " & Chr(34) & "$A$1136:$s$1159" & Chr(34)
ActiveSheet.PageSetup.PrintArea = pArea