I have a user form with a button that when pressed is to send the text "TackleFL" into the first available cell in column A of a sheet called TouchPaddata
I am currently using the following code, but am having no success :
Private Sub CommandButton1_Click()
Dim LR As Long
With Sheets("TouchPaddata")
LR = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & LR).Value = "TackleFL"
End With
End Sub
any clues ?
I am currently using the following code, but am having no success :
Private Sub CommandButton1_Click()
Dim LR As Long
With Sheets("TouchPaddata")
LR = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & LR).Value = "TackleFL"
End With
End Sub
any clues ?