I have the following code and would like to have it inserted in to a named range when saved? I got the code below from another thread and it only adds the data to the bottom of my worksheet, but it is not part of the named range!
Private Sub Save_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Forums Postings")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'copy the data to the database
ws.Cells(iRow, 1).Value = frmForumsPosting.ForumID.Caption
ws.Cells(iRow, 2).Value = frmForumsPosting.ForumURL.Caption
End Sub
Thanks in advance for your help,
g
Bookmarks