Hi Nate,
Works brilliantly thanks very much. Here is what I have come up with to move a number of cells to another sheet:
Private Sub SendToTradelog_Click()
Sheets("TradeLog").Range("B106").End(3)(2) = [B35]
Sheets("TradeLog").Range("C106").End(3)(2) = [B36]
Sheets("TradeLog").Range("E106").End(3)(2) = [B37]
Sheets("TradeLog").Range("F106").End(3)(2) = [B38]
Sheets("TradeLog").Range("J106").End(3)(2) = [B39]
Sheets("TradeLog").Range("K106").End(3)(2) = [B40]
Sheets("TradeLog").Range("L106").End(3)(2) = [B41]
Sheets("TradeLog").Range("P106").End(3)(2) = [B42]
Sheets("TradeLog").Range("Y106").End(3)(2) = [B43]
Sheets("TradeLog").Range("AB106").End(3)(2) = [B44]
Sheets("TradeLog").Range("AL106").End(3)(2) = [B45]
End Sub
I also have one other thing that I think might be rather tricky to do. I'll search through the past posts first before asking too much!
Cheers Glenn