Checkbox issues

[joeyjj]

Hello all,

I have the following code which I keep receiving errors with.

If ChBLine = True Then

iRow = ws.Range(ActiveCell.Address)

Else

If ws.Range("A2").Value <> "" Then
    iRow = ws.Range("A1").End(xlDown).Row + 1
Else
    iRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
End If
End If

Note that ChBLine is the name of a check box.

I would like the code to be such that if the user checks the box then iRow becomes whatever cell the user is on, otherwise I want it to find the next available cell.

 

[joeyjj]

I would also like to add that the printing format to sent to the spreadsheet is as follows:

ws.Cells(iRow, 1).Font.Bold = True
ws.Cells(iRow, 1).Value = "Duct"
ws.Cells(iRow, 2).NumberFormat = 0
ws.Cells(iRow, 2).Value = -LD63
ws.Cells(iRow, 3).NumberFormat = 0
ws.Cells(iRow, 3).Value = -LD125
ws.Cells(iRow, 4).NumberFormat = 0
ws.Cells(iRow, 4).Value = -LD250
ws.Cells(iRow, 5).NumberFormat = 0
ws.Cells(iRow, 5).Value = -LD500
ws.Cells(iRow, 6).NumberFormat = 0
ws.Cells(iRow, 6).Value = -LD1000
ws.Cells(iRow, 7).NumberFormat = 0
ws.Cells(iRow, 7).Value = -LD2000
ws.Cells(iRow, 8).NumberFormat = 0
ws.Cells(iRow, 8).Value = -LD4000
ws.Cells(iRow, 9).NumberFormat = 0
ws.Cells(iRow, 9).Value = -LD8000

 

[joeyjj]

After playing around with it a bit more i found the problem. See the coding below:

If ChBLine = True Then

iRow = ActiveCell.Row

Else

If ws.Range("A2").Value <> "" Then
    iRow = ws.Range("A1").End(xlDown).Row + 1
Else
    iRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
End If
End If