Macro needed to randomly select a column

[zerro]

Macro needed
I need to randomly select a column, I have 22 columns of data, and paste into column G of a new sheet.
I've googled this and cannot find anything.
Any help will be greatly appreciated

 

[Kenneth Hobson]

Sub CopyCol1To22ToNewWorksheetColG()
  Columns(RBetween(1, 22)).Copy
  Worksheets.Add After:=Worksheets(Worksheets.Count)
  Range("G1").PasteSpecial xlPasteAll
  Application.CutCopyMode = False
End Sub

Function RBetween(lowerbound As Long, upperbound As Long) As Long
  RBetween = WorksheetFunction.Floor((upperbound - lowerbound + 1) * Rnd + lowerbound, 1)
End Function

 

[zerro]

Wow that is fantastic
Had to tweak for sheet names but works perfectly

Thank you ever so much