Excel output on sheets 3-4

[DMT Dave]

Hi Guy's can anyone help with this one ?



The output works ok for Excel sheets 1 and 2 but no data goes onto sheets 3 and 4, same data is meant to output

With xLWB.Worksheets(1).Cells(4, 9) = Me.Client
.Worksheets(1).Cells(5, 9) = Me.Add1
.Worksheets(1).Cells(6, 9) = Me.Add2
.Worksheets(1).Cells(7, 9) = Me.Town
.Worksheets(1).Cells(8, 9) = Me.PostCode
.Worksheets(1).Cells(9, 9) = Me.Tel
.Worksheets(1).Cells(10, 9) = Me.Mobile
.Worksheets(1).Cells(11, 9) = Me.EMail
.Worksheets(1).Cells.EntireColumn.HorizontalAlignment = xlLeft
.Worksheets(2).Cells(2, 9) = Me.Date
.Worksheets(2).Cells(6, 7) = Me.Client
.Worksheets(2).Cells(7, 7) = Me.Add1
.Worksheets(2).Cells(8, 7) = Me.Add2
.Worksheets(2).Cells(9, 7) = Me.Town
.Worksheets(2).Cells(10, 7) = Me.PostCode
.Worksheets(2).Cells.EntireColumn.HorizontalAlignment = xlLeft
.Worksheets(3).Cells(4, 9) = Me.Client
.Worksheets(3).Cells(5, 9) = Me.Add1
.Worksheets(3).Cells(6, 9) = Me.Add2
.Worksheets(3).Cells(7, 9) = Me.Town
.Worksheets(3).Cells(8, 9) = Me.PostCode
.Worksheets(3).Cells(9, 9) = Me.Tel
.Worksheets(3).Cells(10, 9) = Me.Mobile
.Worksheets(3).Cells(11, 9) = Me.EMail
.Worksheets(3).Cells.EntireColumn.HorizontalAlignment = xlLeft
.Worksheets(4).Cells(2, 6) = Format(Now(), "dd-mmmm-yyyy")
.Worksheets(4).Cells(4, 6) = Me.Client
.Worksheets(4).Cells(5, 6) = Me.Add1
.Worksheets(4).Cells(6, 6) = Me.Add2
.Worksheets(4).Cells(7, 6) = Me.Town
.Worksheets(4).Cells(8, 6) = Me.PostCode

[ranman256]

Your WITH is wrong, it may be the:

With xLWB.Worksheets(1).Cells(4, 9)

instead use: With xLWB

then the .Worksheets(xxxxx) should work.